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