'primero tienes que irte a referencias(Ctrl +t) y selecionar la tecnologia Microsoft Acivex Data Objects 2.7 library
Esta es la que permite crear Los recordset y la coneccion hacia la base de datos
'Crear modulo
en el modulo tienes que crear el objeto que hace la coneccion a la base y el famoso recordset(registros):
Public base as new ADODB.Coneccion
Public recorset as new ADODB.Recordset
' en el mismo modulo crear una sentencia Publica :
Public Sub coneccion()
base.Provider = "Microsoft.Jet.OLEDB.4.0"
base.ConnectionString = "Data Source = " & (App.Path & "\origen.mdb") & ""
base.Open
End Sub
'cabe recalcar que base es el objeto que va hacer la coneccion y origen es la base de datos
'Ahora si vamos a llenar en el flex los datos de una tabla que esta en la base em este caso la tabla CLIENTE que tiene esos campos.. esto se lo hace en el form_load o en um comando o mas bien en el objeto en en el cual le vas a dar el evento para llenar el flex en este caso en el form load,,, esto quiere decir que al cargar el formulario ya los datos en el flex ya deben estar disponibles
Private Sub form_load()
1.- vamos a diseñar el flex dependiendo a los campos de la tabla
Me.MSFlexGrid1.TextMatrix(0, 0) = "id"
Me.MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
Me.MSFlexGrid1.TextMatrix(0, 2) = "Apellido"
Me.MSFlexGrid1.TextMatrix(0, 3) = "telefono"
2.-
recorset.Open "select * from CLIENTE", base, adOpenKeyset, adLockBatchOptimistic
f = 1
Do While Not recorset.EOF
Me.MSFlexGrid1.Rows = Me.MSFlexGrid1.Rows + 1
Me.MSFlexGrid1.TextMatrix(f, 0) = rs2!id
Me.MSFlexGrid1.TextMatrix(f, 1) = rs2!Nombre
Me.MSFlexGrid1.TextMatrix(f, 2) = rs2!Apellido
Me.MSFlexGrid1.TextMatrix(f, 3) = rs2!Telefono
recorset.MoveNext
f = f + 1
Loop
recorset.close
End Sub
pruebalo ese es mi modo para llenar todos lo datos de una tabla en un flex
Gracias...
ATT.ANDRES RAUL
[email protected]