Exportar acces

[Sergio18]

Hola, tengo que hacer que una base de datos de acces se exporte a un flexgrid, pero me fallan los controles y no se que es lo k hay k hacer
aki dejo el codigo de como lo llevo

Código vb:

Public cnprueba As Connection
Public rsTbl_Direccion As Recordset
 
Private Sub Form_Load()
Dim i As Integer
'Visualizar el formulario
    Form1.Show
    Form1.Refresh
    Screen.MousePointer = vbHourglass 'reloj de arena
'crear un objeto conexion
    Set cnprueba = New Connection
'Establecer sus propiedades
     With cnprueba
        .Provider = "Microsoft.Jet.OLEBD.4.0"
        .ConnectionString = "prueba.mdb"
    End With
 
cnprueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
    Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
    With rsTbl_Direccion
        .Source = "select * from Tbl_Direccion"
        .ActiveConnection = cnprueba
        .LockType = adLockOptimistic
    End With
'Abrir conjunto de registros
    rsTbl_Direccion.Open Options:=adCmdText
'Conectar los controles con los campos del conjunto de registros para
'poder visualizar los datos
    Set List1.DataSource = rsTbl_Direccion
        List1.DataField = rsTbl_Direccion.Fields(0).Name
        For i = 1 To 6
    Set List1.DataSource = rsTbl_Direccion
        List1.DataField = rsTbl_Direccion.Fields(i).Name
    Next i
Screen.MousePointer = vbDefault
End Sub
 

Ayuda pliss y Gracias

[Sergio18]

Ya lo he echo, lo pongo aki para kien lo kiera

Código vb:

Option Explicit
Public cnprueba As Connection
Public rsTbl_Direccion As Recordset
Public rsciudad As Recordset
Public rsprovincias As Recordset
 
Private Sub Form_Load()
Dim i As Integer
'Visualizar el formulario
    Form1.Show
    Form1.Refresh
    Screen.MousePointer = vbHourglass 'reloj de arena
'crear un objeto conexion
    Set cnprueba = New Connection
'Establecer sus propiedades
     With cnprueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
 
cnprueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
    Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
    With rsTbl_Direccion
        .Source = "select id,nombre,apellidos,direccion,ciudad,provincia,telefono,cp from Tbl_Direccion"
        .ActiveConnection = cnprueba
        .LockType = adLockOptimistic
    End With
rsTbl_Direccion.Open Options:=adCmdText
'Abrir conjunto de registros
    MSFlexGrid1.Cols = 8
    MSFlexGrid1.FixedCols = 0
    While Not rsTbl_Direccion.EOF
        MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
        rsTbl_Direccion.MoveNext
    Wend
    MSFlexGrid1.TextMatrix(0, 0) = "ID"
    MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
    MSFlexGrid1.TextMatrix(0, 2) = "Apellidos"
    MSFlexGrid1.TextMatrix(0, 3) = "Direccion"
    MSFlexGrid1.TextMatrix(0, 4) = "Ciudad"
    MSFlexGrid1.TextMatrix(0, 5) = "Provincia"
    MSFlexGrid1.TextMatrix(0, 6) = "Telefono"
    MSFlexGrid1.TextMatrix(0, 7) = "CP"
    Screen.MousePointer = vbDefault
   
'Añadimos la tabla ciudad al combo1
Set rsciudad = New Recordset
'Establecer sus propiedades
    With rsciudad
        .Source = "select ciudad from ciudad"
        .ActiveConnection = cnprueba
        .LockType = adLockOptimistic
    End With
rsciudad.Open Options:=adCmdText
'Abrir conjunto de registros
    Do Until rsciudad.EOF()
    Combo1.AddItem rsciudad!ciudad
    rsciudad.MoveNext
    Loop
    
'Añadimos la tabla provincias al combo2
Set rsprovincias = New Recordset
'Establecer sus propiedades
    With rsprovincias
        .Source = "select provincias from provincias"
        .ActiveConnection = cnprueba
        .LockType = adLockOptimistic
    End With
rsprovincias.Open Options:=adCmdText
'Abrir conjunto de registros
    Do Until rsprovincias.EOF()
    Combo2.AddItem rsprovincias!provincias
    rsprovincias.MoveNext
    Loop
End Sub
 

Salu2

[Insomnia]

Hola

Buen detalle el de compartir la solución del problema.

--Saludos--

[Sergio18]

De nada, ya k estaba en ello pues lo pongo por si a alguien le viniera bien