Error Crystal Report Estimados estoy haciendo el reporte pero me dice que las tablas no existen, adjunto el codigo...
En el reporte creado en crystal antes de generar todo el codigo me muestra todos los datos, porfa ayuda
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Private Sub Form_Load()
Dim SERVER
Dim databa
Dim usser
Dim pass
SERVER = "190.208.32.xxx"
databa = "asistencia"
usser = "josellop"
pass = "xxxxxx"
Dim Conexion As ADODB.Connection
Dim Consulta As ADODB.Recordset
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"Server=" & SERVER & ";" & _
"Database=" & databa & ";" & _
"User=" & usser & ";" & _
"Password=" & pass & ";" & _
"Option=3;"
Conexion.Open
WindowState = 0
Set Consulta = New ADODB.Recordset
Consulta.Open "SELECT usuarios.empresa, asistencia.rut, usuarios.nombre,asistencia.fecha, asistencia.hora_inicio, asistencia.equipo from asistencia join usuarios on asistencia.rut = usuarios.rut order by empresa,fecha asc, rut ;", Conexion, , , adCmdText
'rs.CursorLocation = adUseClient
CrystalReport1.Database.SetDataSource Consulta
CrystalReport1.PaperOrientation = crDefaultPaperOrientation
CrystalReport1.PaperSize = crPaperA4
CrystalReport1.DiscardSavedData
CRViewer1.EnableDrillDown = False
CRViewer1.DisplayGroupTree = True
CRViewer1.EnableRefreshButton = True
CRViewer1.ReportSource = CrystalReport1
CRViewer1.ViewReport
CRViewer1.Zoom 2
WindowState = 2
End Sub
