ayuda por favor
Publicado por daco (5 intervenciones) el 26/04/2004 01:09:21
Luego de crear mi aplicacion y empaquetarlo voy y lo instalo en otra pc de las mismas especificaciones donde la cree, windowsxp prof..., y me sale este mensaje "Physical database not found".. ya no c que hacer:
Programo en VB 6.0, con Crystal Report 8.5 y access 2000 prof, y ADO e instrucciones de sql.
Trabajo con un DSR que se llama RPT1.dsr
el cual me despliega la lista de datos en una base de datos llamada bd.mdb, en una tabla llamada "tabla"... en forma de reporte.
En visual basic tengo estos codigos:
******************* Form1 *******************
Private Sub Command1_Click()
Form2.Show
End Sub
******************* fin del formulario*************
*********************Form2**********************
Dim Report As New CrystalReport1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.Database.Tables(1).Location = App.Path & "\BD.mdb"
Report.Database.Tables(1).SetSessionInfo "", (Chr(10) & "123456")
CRViewer1.ReportSource = Report
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (80)
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
********************************fin form2****************************
tengo este programita zipiado si alguen gusta ayudarme se lo puedo enviar por correo... realmente lo agradeceria mucho...
Saludos a todos
Programo en VB 6.0, con Crystal Report 8.5 y access 2000 prof, y ADO e instrucciones de sql.
Trabajo con un DSR que se llama RPT1.dsr
el cual me despliega la lista de datos en una base de datos llamada bd.mdb, en una tabla llamada "tabla"... en forma de reporte.
En visual basic tengo estos codigos:
******************* Form1 *******************
Private Sub Command1_Click()
Form2.Show
End Sub
******************* fin del formulario*************
*********************Form2**********************
Dim Report As New CrystalReport1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.Database.Tables(1).Location = App.Path & "\BD.mdb"
Report.Database.Tables(1).SetSessionInfo "", (Chr(10) & "123456")
CRViewer1.ReportSource = Report
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (80)
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
********************************fin form2****************************
tengo este programita zipiado si alguen gusta ayudarme se lo puedo enviar por correo... realmente lo agradeceria mucho...
Saludos a todos
Valora esta pregunta


0