Get table names from MSAccess Datasource

[Steven Smith]

Hello all,

I have a vb6 (not .NET) program using MS Access as the backend. As part of
an import form, I need to allow the user to select the table containing the
data to be imported. How can I populate a combo with this information?
Then, once this value is selected, how can I populate other combos with the
column names of the selected table?
Thanks,

Steven Smith

[Karl E. Peterson]

Steven Smith wrote:

I have a vb6 (not .NET) program using MS Access as the backend. As
part of an import form, I need to allow the user to select the table
containing the data to be imported. How can I populate a combo with
this information? Then, once this value is selected, how can I
populate other combos with the column names of the selected table?

Iterate the TableDefs collection looking at each item's Name property to
offer a choice of tables. And, within each TableDef, you can loop the
Fields collection.
--

[Steven Smith]

Thanks Karl... I would've preferred ADO or SQL, but since it's only for one
query in my program, this'll work just fine!
"Karl E. Peterson" <ka**@mvps.or g> wrote in news:e210ej$3im $1
@emma.aioe.org:

Steven Smith wrote:

I have a vb6 (not .NET) program using MS Access as the backend. As
part of an import form, I need to allow the user to select the table
containing the data to be imported. How can I populate a combo with
this information? Then, once this value is selected, how can I
populate other combos with the column names of the selected table?

Iterate the TableDefs collection looking at each item's Name property to
offer a choice of tables. And, within each TableDef, you can loop the
Fields collection.

[Ralph]

"Steven Smith" <sl****@webbox. com> wrote in message
news:Tu******** *********@twist er.nyroc.rr.com ...

Thanks Karl... I would've preferred ADO or SQL, but since it's only for one query in my program, this'll work just fine!
"Karl E. Peterson" <ka**@mvps.or g> wrote in news:e210ej$3im $1
@emma.aioe.org:

Steven Smith wrote:

I have a vb6 (not .NET) program using MS Access as the backend. As
part of an import form, I need to allow the user to select the table
containing the data to be imported. How can I populate a combo with
this information? Then, once this value is selected, how can I
populate other combos with the column names of the selected table?

Iterate the TableDefs collection looking at each item's Name property to
offer a choice of tables. And, within each TableDef, you can loop the
Fields collection.

Sub ListTablesADO() Dim cnn As ADODB.Connectio n Set cnn = New
ADODB.Connectio n Dim rsTables As ADODB.Recordset Dim rsColumns As
ADODB.Recordset 'Open connection you want To get database objects
cnn.Provider = "MSDASQL" ' whatever needed... cnn.Open
"DSN=...;Databa se=...;", "UID", "PWD" 'Get all database tables. Set
rsTables = cnn.OpenSchema( adSchemaTables) Do While Not rsTables.EOF
'Get all table columns. Set rsColumns = cnn.OpenSchema( adSchemaColumns , _
Array(Empty, Empty, "" & rsTables("TABLE _NAME"))) Do While Not
rsColumns.EOF Debug.Print rsTables("TABLE _NAME") & ", " & _
rsColumns("COLU MN_NAME") rsColumns.MoveN ext Loop
rsTables.MoveNe xt LoopEnd SubSub ListTablesADOX( ) Dim cnn As
ADODB.Connectio n Set cnn = New ADODB.Connectio n 'Open connection you
want To get database objects cnn.Provider = "MSDASQL" ' whatever you
need... cnn.Open "DSN=...;Databa se=...;", "UID", "PWD" 'Create catalog
object Dim Catalog As New ADOX.Catalog Set Catalog.ActiveC onnection = cnn
'List tables And columns Dim tbl As ADOX.Table Dim col As ADOX.Column For
Each tbl In Catalog.Tables Debug.Print tbl.Name For Each col In
tbl.Columns Debug.Print col.Name Next NextEnd Sub

[Ralph]

"Ralph" <nt************ *@yahoo.com> wrote in message
news:R8******** *************** *******@arkansa s.net...

"Steven Smith" <sl****@webbox. com> wrote in message
news:Tu******** *********@twist er.nyroc.rr.com ...

Thanks Karl... I would've preferred ADO or SQL, but since it's only for one

query in my program, this'll work just fine!
"Karl E. Peterson" <ka**@mvps.or g> wrote in news:e210ej$3im $1
@emma.aioe.org:

Steven Smith wrote:
> I have a vb6 (not .NET) program using MS Access as the backend. As
> part of an import form, I need to allow the user to select the table
> containing the data to be imported. How can I populate a combo with
> this information? Then, once this value is selected, how can I
> populate other combos with the column names of the selected table?

Iterate the TableDefs collection looking at each item's Name property to offer a choice of tables. And, within each TableDef, you can loop the
Fields collection.

Sub ListTablesADO() Dim cnn As ADODB.Connectio n Set cnn = New
ADODB.Connectio n Dim rsTables As ADODB.Recordset Dim rsColumns As
ADODB.Recordset 'Open connection you want To get database objects
cnn.Provider = "MSDASQL" ' whatever needed... cnn.Open
"DSN=...;Databa se=...;", "UID", "PWD" 'Get all database tables. Set
rsTables = cnn.OpenSchema( adSchemaTables) Do While Not rsTables.EOF
'Get all table columns. Set rsColumns = cnn.OpenSchema( adSchemaColumns ,

_ Array(Empty, Empty, "" & rsTables("TABLE _NAME"))) Do While Not
rsColumns.EOF Debug.Print rsTables("TABLE _NAME") & ", " & _
rsColumns("COLU MN_NAME") rsColumns.MoveN ext Loop
rsTables.MoveNe xt LoopEnd SubSub ListTablesADOX( ) Dim cnn As
ADODB.Connectio n Set cnn = New ADODB.Connectio n 'Open connection you
want To get database objects cnn.Provider = "MSDASQL" ' whatever you
need... cnn.Open "DSN=...;Databa se=...;", "UID", "PWD" 'Create catalog
object Dim Catalog As New ADOX.Catalog Set Catalog.ActiveC onnection = cnn 'List tables And columns Dim tbl As ADOX.Table Dim col As ADOX.Column For Each tbl In Catalog.Tables Debug.Print tbl.Name For Each col In
tbl.Columns Debug.Print col.Name Next NextEnd Sub

Sorry, don't know what happened to the paste...

Sub ListTablesADO()
Dim cnn As ADODB.Connectio n:
Set cnn = New ADODB.Connectio n
Dim rsTables As ADODB.Recordset
Dim rsColumns As ADODB.Recordset
'Open connection you want To get database objects
cnn.Provider = "MSDASQL" ' whatever needed...
cnn.Open "DSN=...;Databa se=...;", "UID", "PWD"
'Get all database tables. Set
rsTables = cnn.OpenSchema( adSchemaTables)
Do While Not rsTables.EOF
'Get all table columns.
Set rsColumns = cnn.OpenSchema( adSchemaColumns , _
Array(Empty, Empty, "" & rsTables("TABLE _NAME")))
Do While Not rsColumns.EOF
Debug.Print rsTables("TABLE _NAME") & ", " & _
rsColumns("COLU MN_NAME")
rsColumns.MoveN ext
Loop
rsTables.MoveNe xt
Loop
End Sub

Sub ListTablesADOX( )
Dim cnn As ADODB.Connectio n
Set cnn = New ADODB.Connectio n
'Open connection you want To get database objects
cnn.Provider = "MSDASQL" ' whatever you need...
cnn.Open "DSN=...;Databa se=...;", "UID", "PWD"
'Create catalog object
Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveC onnection = cnn
'List tables And columns
Dim tbl As ADOX.Table
Dim col As ADOX.Column
For Each tbl In Catalog.Tables
Debug.Print tbl.Name
For Each col In tbl.Columns
Debug.Print col.Name
Next
Next
End Sub