Visual Basic - como ver mis consultas en visual creadas en acces

Life is soft - evento anual de software empresarial
 
Vista:

como ver mis consultas en visual creadas en acces

Publicado por Karina (3 intervenciones) el 25/09/2004 17:55:54
estoy creando un sistema para un almacen .. la cual hize mi base de datos en acces y lo enlace con visual basic .........El problema es que
Necesito poder ver todo tipo de consultas creadas en acces, para poder verlas en visual basic o estoy equivocada alguien ayudeme porfa
Si alguien podria guiarme en esto por favor.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como ver mis consultas en visual creadas en acc

Publicado por Ariel (94 intervenciones) el 25/09/2004 22:16:05
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...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar