Imprimir Página - Llenar un TDBGrid con ADO

Título: Llenar un TDBGrid con ADO
Publicado por: Fabricio en 11 Agosto 2009, 21:42 pm

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:


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

Título: Re: Llenar un TDBGrid con ADO
Publicado por: Angeldj27 en 15 Agosto 2009, 16:51 pm

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Fabricio en 11 Agosto 2009, 21:42 pm