ADO - Listing Tables and Fields

[omarswan]

Hi,
I have two questions:
(1) How do you load/ist all the Tables from a Database into a combo box or a list box ??

(2) How do load/list all the Fields from a Table into a combo box or a list box ??


Thanks

[anandkumar]

Hi,
Collecting all tables and putting in to a listbox
*************************************************

very good question, i will idea to get the tables
from ORACLE, you try it.

1. Create a ADODB instance
(Project -> Reference
Microsoft ActiveX Data Objects )
2. dim conn as new adodb.connection
dim res as new adodb.recordset

3. Establish a connection through connectionstring

4. open a recordset by using sql statement using
a data dictionary USER_TAB_COLUMNS

5. create a listbox
6. for i = 0 to recordset object.recordcount-1
listbox1.additem recordset object(i)
next i

try this , surely this will work,
bye,
reply soon, my addresss [email protected] (anand)

[Clunietp]

List all tables:

    'references:
    'ActiveX Data Objects 2.x
    'ADO 2.x for DDL and security
    
    Dim tbl As ADOX.Table
    Dim cn As ADODB.Connection
    
    Dim ax As ADOX.Catalog
    
    Set cn = New ADODB.Connection
    
    'connect
    cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=Nwind.mdb"
    
    Set ax = New ADOX.Catalog
    
    ax.ActiveConnection = cn
    
    'loop thru tables
    For Each tbl In ax.Tables
        Debug.Print tbl.Name & " " & tbl.Type
    Next tbl
    
    'close connection
    cn.Close
    Set cn = Nothing

List all fields in a table:

'uses ADO 2.5
'     ADO 2.5 for DDL and security

    Dim cn As Connection
    Dim ax As Catalog
    Dim tbl As Table
    Dim fld As Field
    Dim cl As Column
    Set cn = New Connection
    
    'open connection to db
    cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=NWind.mdb"
    
    Set ax = New Catalog
    ax.ActiveConnection = cn
    
    'get table reference
    Set tbl = ax.Tables("Employees")
    
    'list all fields
    For Each cl In tbl.Columns
        Debug.Print cl.Name
    Next cl
    
    'cleanup
    Set cl = Nothing
    Set ax = Nothing
    
    cn.Close
    Set cn = Nothing

[anandkumar]

THANKS FOR REPLYING, YOU DID'NT MENTIONED ABOUT ORACLE
TABLE,

HOW TO DOWNLOAD A FILE FROM THE WEB SERVER (THROUGH
VB CODING).