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

[Ken Tucker [MVP]]

Hi,

Maybe this will help.

http://www.vb-tips.com/default.aspx?...c-e9d7983c1e05

Ken
----------------
"Steven Smith" <sl****@webbox.com> wrote in message
news:73**************@twister.nyroc.rr.com...

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

[Steven Smith]

Thanks Ken... it wasn't quite what I needed, but it pointed me in the right
direction.

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in
news:eZ**************@TK2MSFTNGP05.phx.gbl:

Hi,

Maybe this will help.

http://www.vb-tips.com/default.aspx?...-8c6c-e9d7983c
1e05

Ken
----------------
"Steven Smith" <sl****@webbox.com> wrote in message
news:73**************@twister.nyroc.rr.com...

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

[Cor Ligthert [MVP]]

Steven,

Somebody else was asking the same question, maybe we should extend our
sample with the schema information.

http://msdn2.microsoft.com/en-us/lib...fh(VS.80).aspx

But using that sample the schema option easy to find and it works the same..

I hope this helps,

Cor

"Steven Smith" <sl****@webbox.com> schreef in bericht
news:_v****************@twister.nyroc.rr.com...

Thanks Ken... it wasn't quite what I needed, but it pointed me in the
right
direction.

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in
news:eZ**************@TK2MSFTNGP05.phx.gbl:

Hi,

Maybe this will help.

http://www.vb-tips.com/default.aspx?...-8c6c-e9d7983c
1e05

Ken
----------------
"Steven Smith" <sl****@webbox.com> wrote in message
news:73**************@twister.nyroc.rr.com...

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

[Cor Ligthert [MVP]]

>

Somebody else was asking the same question, maybe we should extend our
sample with the schema information.

I forgot to type it complete, therefore the link was still in my clipboard.

[Paul Clement]

On Mon, 17 Apr 2006 20:40:35 GMT, Steven Smith <sl****@webbox.com> wrote:

¤ 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?
¤

List of Tables:

Dim DatabaseConnection As New System.Data.OleDb.OleDbConnection
Dim SchemaTable As DataTable

DatabaseConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Test Files\db1 XP.mdb"

DatabaseConnection.Open()

SchemaTable =
DatabaseConnection.GetOleDbSchemaTable(System.Data .OleDb.OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing,
Nothing})

Dim RowCount As Int32
For RowCount = 0 To SchemaTable.Rows.Count - 1
TableListCombo.Items.Add(SchemaTable.Rows(RowCount )!TABLE_NAME.ToString)
Next RowCount

DatabaseConnection.Close()

List of Columns:

Dim DatabaseConnection As New System.Data.OleDb.OleDbConnection
Dim SchemaTable As DataTable

DatabaseConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Test Files\db1 XP.mdb"

DatabaseConnection.Open()

SchemaTable =
DatabaseConnection.GetOleDbSchemaTable(System.Data .OleDb.OleDbSchemaGuid.Columns, _
New Object() {Nothing, Nothing, "Table1"})

Dim RowCount As Int32
For RowCount = 0 To SchemaTable.Rows.Count - 1
ColumnListCombo.Items.Add(SchemaTable.Rows(RowCoun t)!COLUMN_NAME.ToString)
Next RowCount

DatabaseConnection.Close()
Paul
~~~~
Microsoft MVP (Visual Basic)

[Steven Smith]

Thanks!
Paul Clement <Us***********************@swspectrum.com> wrote in
news:af********************************@4ax.com:

On Mon, 17 Apr 2006 20:40:35 GMT, Steven Smith <sl****@webbox.com>
wrote:

¤ 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?
¤

List of Tables:

Dim DatabaseConnection As New
System.Data.OleDb.OleDbConnection Dim SchemaTable As DataTable

DatabaseConnection.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Test Files\db1 XP.mdb"

DatabaseConnection.Open()

SchemaTable =
DatabaseConnection.GetOleDbSchemaTable(System.Data .OleDb.OleDbSchemaGui
d.Tables, _
New
Object() {Nothing, Nothing, Nothing,
Nothing})

Dim RowCount As Int32
For RowCount = 0 To SchemaTable.Rows.Count - 1
TableListCombo.Items.Add(SchemaTable.Rows(RowCount )!TABLE_N
AME.ToString)
Next RowCount

DatabaseConnection.Close()

List of Columns:

Dim DatabaseConnection As New
System.Data.OleDb.OleDbConnection Dim SchemaTable As DataTable

DatabaseConnection.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Test Files\db1 XP.mdb"

DatabaseConnection.Open()

SchemaTable =
DatabaseConnection.GetOleDbSchemaTable(System.Data .OleDb.OleDbSchemaGui
d.Columns, _
New Object() {Nothing, Nothing, "Table1"})

Dim RowCount As Int32
For RowCount = 0 To SchemaTable.Rows.Count - 1
ColumnListCombo.Items.Add(SchemaTable.Rows(RowCoun t)!COLUMN
_NAME.ToString)
Next RowCount

DatabaseConnection.Close()
Paul
~~~~
Microsoft MVP (Visual Basic)