15/03/2007, 10:56
|
| | | Fecha de Ingreso: marzo-2007
Mensajes: 1
Antigüedad: 17 años, 2 meses Puntos: 0 | |
 Re: DataGrid con DAO
el còdigo propuesto por atenea esta bien solo una pequeña optimizacion de mi parte
Dim SQL As String, i As Integer
SQL = "SELECT rfc_cli,nombre From tb_rfc;"
Set FCGrid = db.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)
i = 1
FCGrid.MoveFirst
Do While FCGrid.EOF = False
grid.TextMatrix(i, 0) = FCGrid!rfc_cli
grid.TextMatrix(i, 1) = FCGrid!nombre
grid.TextMatrix(i, 2) = y ps asi va creciendo
i = i + 1
grid.AddItem ("")
FCGrid.MoveNext
Loop |