Llenar un TDBGrid con ADO

[Fabricio]

Hola a todos deso saber como puedo llenar un TDBGrip Pro 8 OLEDB con los datos obtenidos de una consulta SQL (antes usaba el dte y lo unico que tenisa que hacer es decirle a que campo de la tabla corresponde cada columna de la grilla ) pero ahora trabajo con ADO y no se como decirle que me cargue los datos traidos del recorset
intente algo como esto pero no funciona

Código [Seleccionar] Expandir



Dim rsEquipos As New ADODB.Recordset

rsEquipos.Open "SELECT * FROM EQUIPOS", gCnn, adOpenDynamic, adLockOptimistic
If Not (rsEquipos.BOF) And Not (rsEquipos.EOF) Then
    tdbgEquipos.DataSource = rsEquipos
    rsEquipos.MoveFirst
    Do While Not rsEquipos.EOF
        tdbgEquipos.Columns(0).DataField = rsEquipos(0)
        tdbgEquipos.Columns(1).DataField = rsEquipos(1)
        tdbgEquipos.Columns(2).DataField = Trim(rsEquipos(2))
        rsEquipos.MoveNext
    Loop
    tdbgEquipos.Refresh
End If
End Sub


saludos y gracias

[Angeldj27]

Con el componente Ado puedes setear directo el grid y solo le haces la consulta y el se encarga de llenarlo y te ahorras codigo solo con arias la consulta

     AdoCampos2.RecordSource = "SELECT * FROM EQUIPOS"
     AdoCampos2.Refresh

Pero creo que si no le modificas propiedades a TDBGrid se deberia visualizar todas los campos sin pro...

Saludos....

PS: si instalaste el paquete de componen One que es el que trae el TDBGrid te instala unos ejemplos interesantes 

[ssccaann43 ©]

Desconozco ese control, podrías subir el ocx para revisarlo? Y si tienes algunos ejemplos pues mejor... Saludos