Ver Mensaje Individual
  #10 (permalink)  
Antiguo 02/03/2007, 11:59
Avatar de tazzito
tazzito
 
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 8 meses
Puntos: 2
Re: DataGrid con DAO

Cita:
Iniciado por AteneaVB Ver Mensaje
Lamento decir que todos estan equivocados. El DataGrid no tiene una propiedad Recordset, sino DataSource.

Lo correcto es:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")
Set DatRegistro.Recordset = Registro
DdGrid1.DataSource = DatRegistro

en donde DatRegistro es un Control tipo Data, pero como tú dices que no quieres usarlo tienes otra opción, en lugar de usar un DataGrid, utiliza un
Grid y llénalo manualmente con tu Recordset. Así:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")

Dm I as Integer
I =1
Do While Registro.Eof = False

Grid1.Row = I

'Campo1
Grid1.Col = 0
Grid1.Text = Registro!Campo1

'Campo2
Grid1.Col = 1
Grid1.Text = Registro!Campo2

'.... y así sucesivamente hasta llenar todas las columnas

I = I + 1
Grid1.AddItem ("")

Registro.Movenext
Loop

Espero que te sirva de ayuda. Suerte!
estimada Atenea,

lamento corregirte, pues el datagrid de la version 5 de nuestro querido visual basic, si tenia la opcion de datarecordset, la diferencia esta en que en la version 6 el datagrid viene para ado y tiene datasourse y recordsourse y no funca con dao xD de echo el control para enlazarlo por defecto es el adodc y no el antiguo data1 xD yap eso numa ;)