Vb6 DataReport MySQL Solución

[_cronos_]

Bueno amigos ya encontre la solución


---Primero Agregar el DataReport
Agregar las cajas de texto, ojo aqui es importante ... en las propiedades de este donce dice Datafiel poner el nombre del campo de la tabla a llamar y asi con todas las cajas de texto.


aqui les dejo el codigo para llamar al datagrid y pasar la consulta

Código:

Option Explicit
'variables para la conexion a base de datos
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Record As ADODB.Recordset
    Dim db_name, db_server, db_port, db_user, db_pass, constr As String

Private Sub Command1_Click()
Set rs = conn.Execute("select * from boletas") ' la consulta es modificable :D
If rs.EOF = False Then
    Set DataReport1.DataSource = rs
    DataReport1.Show
End If
End Sub

Private Sub Form_Load()
    db_name = "receptor"
    db_server = "pc1"
    db_port = ""    '3306
    db_user = "root"
    db_pass = "1a2b3c"
    OpenServer
 
End Sub

Private Sub OpenServer() 'Connect MySQL Server Without ODBC setup
    constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
    Set conn = New ADODB.Connection
    conn.Open constr
End Sub

[_cronos_]

Espero les haya servido

por que a mi me salvo xD

saludos

[David]

Saludos _cronos_.

Gracias por compartir la solución, quizás a alguien le sea útil.

[_cronos_]

Iniciado por David el Grande

Saludos _cronos_.

Gracias por compartir la solución, quizás a alguien le sea útil.

cuek! de nada.:ojo tes:

[_cronos_]

espero que sirva todavia