VB6: Como usar DataReport?¡

[Kitty_05]

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 ?

[Kitty_05]

O en caso de q no sea posible, como puedo exportar los datos a un Doc. de Excel ?

[seba123neo]

Hola:

Iniciado por Kitty_05

como no he logrado usar los Crystal Reports se me ocurrio usar los DataReports

en vez de pasarte a una version mejor,te vas a una peor jeje...no los datareport de visual basic son buenos en realidad podes hacer reportes bastante bien si sabes usarlos,mira aca te paso una pagina que te enseña de 0 a hacer un reporte...

Crear un reporte simple utilizando el DataReport

saludos.

[Kitty_05]

Que casualidad estube intentando con esa pero ... no logro vincular los datos de mi BD que esta en MySQL

[_cronos_]

Iniciado por Kitty_05

Que casualidad estube intentando con esa pero ... no logro vincular los datos de mi BD que esta en MySQL

hola la yo tambien ando buscando como usar el datareport o crystal report con vb6 y mysql

he probado como lo haces tu seteando la consulta pero no me arroja nada

Código:

conn.Close

conn.Open

Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenStatic
rs1.LockType = adLockReadOnly
Set rs2 = New ADODB.Recordset
rs1.Open "select * from materiales where Rol LIKE '%" & Text7 & "%' ", conn
xCount = rs1.RecordCount
Set MSHFlexGrid1.DataSource = rs1
'aqui deberia tirar la consulta al reporte
Set Exportar_D.DataSource = rs1
Exportar_D.Show
If Text7.Text = "" Then
    If Text7.Text = "" Then
    MsgBox "No hay registros que contengan los Parametros"
    End If
End If

[Avellaneda]

Iniciado por Kitty_05

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...


Me guian ?

El código no tiene nada que ver con el error que mencionas, léete éste artículo del Soporte Técnico de VB:

http://support.microsoft.com/kb/197915/es

[oscar_2008]

Bueno la verdad es que los datareport son sencillos, con respecto al error que te arroja, a mi en varias ocasiones me ha salido, pero lo resuelvo encogiendo un poco em tamaño del reporte.

los datareport trabajan con el tamaño de la hoja que este configurada en la impresora predeterminada, lo que debes hacer es disminuir un poco el ancho del datareport o cabiar el tamaño del papel en la impresora predeterminada, y como cambias el tamaño del datareport, en la parte derecha del mismo, en le borde el datareport haz clic sostenido y disminuye hasta el nuevo tamaño

espero que te sirva de algo la info