datagrid visual basic 6

[alcreed]

hola que tal , tengo una pequeña duda con la que quiero que me ayuden. Resulta que necesito mostrar los datos de una tabla a travez de una datagrid utilizando sql y visual basic, pero por mas que lo intento con el codigo que esta mas abajo, no me funciona.....ojalá puedan brindarme su ayuda.


lo que hice yo fue lo siguiente:


dim conn As ADODB.Connection
Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=sistemag;" _
& "UID=seg;PWD=123; OPTION=3"

conn.Open


Dim rsresultado As ADODB.Recordset
Set rsresultado = New ADODB.Recordset

rsresultado.ActiveConnection = conn
rsresultado.CursorType = adOpenStatic
rsresultado.LockType = adLockReadOnly
rsresultado.CursorLocation = adUseClient

rsresultado.Open "SELECT * FROM cliente"

Set DataGrid1.DataSource = rsresultado


Por cierto, me estoy conectando a una base de datos mysql y el codigo de conexion funciona perfectamente.

[zxs23]

Prueba con este codigo

Código:

Dim cn As Connection
Dim rs As Recordset

Private Sub Form_Load()

Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;DATABASE=sistemag;USER=seg;PASSWORD=123;OPTION=3"

cn.CursorLocation = adUseClient
cn.Open
Set rs = New Recordset
rs.Open "select * from cliente", cn, adOpenStatic

Set DataGrid1.DataSource = rs

End Sub

[alcreed]

Hola, gracias por tu respuesta, pero el datagrid no me muestra nada............ni siquiera me da un error.

[zxs23]

tienes registros en la tabla?, te muestra los nombres de los campos en los encabezados del datagrid?, revisa eso