Hola amigos como no he logrado usar los Crystal Reports se me ocurrio usar los DataReports pero no logro hacerlo funcionar
me sale un error que dice que el width del reporte es mas grande que el width de la pagina o algo similar.
Les adjunto mi codigo...
Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Código:
Public Function CONECTAR() As ADODB.Connection
On Error GoTo VError
Dim BD As ADODB.Connection
Set BD = New ADODB.Connection
BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=;Database=pr2;User=root;Password=;Option=3;"
BD.CursorLocation = adUseClient
BD.CommandTimeout = 30
BD.Open
Set CONECTAR = BD
Exit Function
VError: MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Function
Private Sub Command1_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset
Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs where prov_id= 2", BD, adOpenStatic, adLockOptimistic
'Asigna el recordset al reporte
Set p1.DataSource = RecSQL
' Muestra el reporte
p1.Show
End Sub
Me guian ?