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 ?