para Floyd

Sebastian
10 de Junio del 2004
Nuevamente gracias por el tiempo y realmente me gustaria saber como hacer para levantar una base con el msflex sin usar el data.
te comento que mi base de datos es del tipo DBF.

Si me mandas algunos ejemplos me serviria mucho.
Gracias


Floyd
10 de Junio del 2004
Setea una variable tipo Recordset o Dynaset que contenga la tabla.

El MsFlexGrid permite adiconar tantas líneas como lo desees con la propiedad AddItem
y cada celda la manipulas con la propiedad .TextMatrix(Fila, Columna), la cual puedes igualar al .Fields() del recordset.


Floyd
10 de Junio del 2004
Ejemplo sencillo:

Dim BaseDatos As Database
Dim tabla As Recordset
Dim Fila As Long

Set BaseDatos = OpenDatabase("C:Archivos de programaMicrosoft Visual StudioVB98Biblio.MDB")
Set tabla = BaseDatos.OpenRecordset("Titles")

MSFlexGrid1.Cols = 2
MSFlexGrid1.TextMatrix(0, 0) = "Titulo"
MSFlexGrid1.TextMatrix(0, 1) = "Año de publicación"

Fila = 1
With tabla
While Not .EOF
If Fila > 1 Then MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(Fila, 0) = .Fields("Title")
MSFlexGrid1.TextMatrix(Fila, 1) = .Fields("Year Published")
.MoveNext
Fila = Fila + 1
Wend
End With

Te queda investigar como habres una Base de datos tipo DBF, no las trabajo, pero con la instrucción OpenDataBase debe ser muy sencillo.

Floyd
10 de Junio del 2004
Olvidé:

tabla.Close
BaseDatos.Close