Question

在vb中连接了一个数据库（mdb）文件后，怎样用代码把该数据库中所有数据表名读出来

例如创建了一个名为“销售.mdb”的数据库文件，该文件中包含两个数据表，一张表是“销售人员名单”，另一张是“销售金额”，假设不知道这两个表名，怎样使用vb语言把它们读取到combox中去。
非常感谢。

Answer 1

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & "销售.mdb" & ";" & _
"Persist Security Info=False"
conn.Open

Combo1.Clear

Set rs = conn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "Table"))
Do While Not rs.EOF
Combo1.AddItem rs!TABLE_NAME
rs.MoveNext
Loop

rs.Close
conn.Close

End Sub