Hola!
Estoy tratando de mostrar todos los objetos que tiene una BD access, lo estoy haciendo de la siguiente manera:
Option Explicit
Dim conn As adodb.Connection
Private Sub Command1_Click()
Dim conn As New adodb.Connection
Dim TablesSchema As adodb.Recordset
Dim ColumnsSchema As adodb.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Prueba.mdb;Mode=Read|Write;Persist Security Info=False"
TablesSchema.Open
Set TablesSchema = conn.OpenSchema(adSchemaTables)
Do While Not TablesSchema.EOF
Set ColumnsSchema = conn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, "" & TablesSchema("TABLE_NAME")))
Do While Not ColumnsSchema.EOF
Debug.Print TablesSchema("TABLE_NAME") & ", " & _
ColumnsSchema("COLUMN_NAME")
ColumnsSchema.MoveNext
Loop
TablesSchema.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set conn = New adodb.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Prueba.mdb;Mode=Read|Write;Persist Security Info=False"
End Sub
Y el error que me tira es el siguiente:
Run-time error '91':
Object variable or With block variable not set, y al depurar me pone el amarillo donde dice
TablesSchema.Open
Que me esta faltando? me ayudan porfis?
Graciassssss!, un beso, Laurys :)
