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
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
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
Citar
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 ;)
Desconozco ese control, podrías subir el ocx para revisarlo? Y si tienes algunos ejemplos pues mejor... Saludos