RE:como ver mis consultas en visual creadas en acc
Hola
Si trabajas con ADO esto es lo que necesitas.
primero que nada
Debes hacer una Referencia a: "Microsoft ADO Ext. For DLL and Security"
Tenes que ir al menu Herramientas/Referencias y seleccionar esa referencia.
Luego ecribe esto
'-------------------------------
Private Sub Command1_Click()
Dim Cat As ADOX.Catalog
Dim i As Integer
Set Cat = New ADOX.Catalog
' Abrir el Catálogo
'si usas Access 97, cambia el 4.0 por 3.51
Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuBase.mdb"
'Guardare el nombre de las tablas en List1 y las consultas en un List2
List1.Clear
List2.Clear
For i = 0 To Cat.Tables.Count - 1
If Left(Cat.Tables.Item(i).Name, 4) <> "MSys" Then
If Cat.Tables.Item(i).Type = "TABLE" Then ' si son tablas en List1
List1.AddItem Cat.Tables.Item(i).Name
'-- Esto es adicional si quieres
'Cat.Tables.Item(i).DateModified <----- fecha modificacion
'Cat.Tables.Item(i).DateCreated <----- fecha creacion
'Cat.Tables.Item(i).Type <------ tipo de Dato View , Table, etc.
ElseIf Cat.Tables.Item(i).Type = "VIEW" Then ' si es consulta en List2
List2.AddItem Cat.Tables.Item(i).Name
End If
End If
Next i
End Sub
'--------------------------------
Espero que te Sirva
Suerte.
Ariel...