Getting tables

[Tonatiuh]

I have an Access database wich contains forms. WHen I open the database, I just see the form and I can't see the tables and the fields. It has any kind of protection.

Is there any way to know how many and the names of the tables that it have? Is there any way to see this structures in the current protected state?

I need to know the database structure.

first thing to try is 'F11'.
next thing is keep 'SHIFT' pressed while opening the db.

if that doesn't work, you could try to open th db from VB and use either DAO or ADOX to check the data structure. it could still be, that the db is password protected, then you are in trouble.

best regards

Sascha

[Tonatiuh]

I have checked the reference: Microsoft ActiveX Data Objects 2.1 Library. But it doesn't provide me with the ADOX datatype.

What reference do I need?

[Psyrus]

If you want the ADO data control you must add it from the Components. It's Microsoft ADO Data Control 6.0 and add the Reference to Microsoft ActiveX Data Objects 2.0 Library.

[Tonatiuh]

Thanks for the info! NO, I don't have the code.

[Clunietp]

here is some code I wrote previously to list all tables and stored procedures in a DB

'uses ADO 2.x and ADO 2.x for DDL and Security    

    Dim objCn As New Connection
    Dim objCat As ADOX.Catalog
    Dim objProc As ADOX.Procedure
    Dim objTable As ADOX.Table
    
    objCn.Open <ConnectionString>
    
    Set objCat = New Catalog
    
    objCat.ActiveConnection = objCn
    
    Debug.Print "==============  TABLES  ============="
    
    For Each objTable In objCat.Tables
        Debug.Print objTable.Name
    Next objTable
    
    Debug.Print "==============  STORED PROCEDURES  =================="
    For Each objProc In objCat.Procedures
        Debug.Print objProc.Name
    Next objProc

    
    objCn.Close
    
    
    Set objCat = Nothing
    Set objCn = Nothing

[Tonatiuh]

A thousand of THANKS for your halep!