Question

VB如何制作查询数据库Access中表的名称？

如access数据库名称为123，数据库地址在VB文件夹内，数据库中有两个表，为表A和表B，如何通过按钮实现查询，将两个表的名称A和B，显示在VB窗体中的下拉菜单控件中（combobox）。

Answer 1

'添加引用Microsoft ActiveX Data Object 2.8 Library
Private Sub Command1_Click()
   Dim Rs As ADODB.Recordset
   Dim Cn As ADODB.Connection
   Set Cn = New ADODB.Connection
   '假设123.mdb在C:\下，根据你的文件位置修改以下语句
   Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\123.mdb;Persist Security Info=False"
   Set Rs = Cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
   Do Until Rs.EOF
        If Left(Rs!table_name, 4) <> "MSys" Then '以MSys开头的是ACCESS内部表
            Combo1.AddItem Rs!table_name
        End If
        Rs.MoveNext
   Loop
   Rs.Close
   Set Rs = Nothing
   Cn.Close
   Set Cn = Nothing
End Sub

追问

你好，首先感谢你的回答，还有个问题想请教下，如果我想查询文件夹456中的Access数据库文件的名字，同样显示在combox中，用什么样的办法呢？

追答

Private Sub Command1_Click()
Dim Flist As FileListBox
Set Flist = Me.Controls.Add("VB.FilelistBox", "F")
Flist.Path = "C:\" '这里是你的路径，
Flist.Pattern = "*.mdb" '数据库文件的扩展名
Dim i As Integer
For i = 0 To Flist.ListCount - 1
    Combo1.AddItem Flist.List(i)
Next
Me.Controls.Remove Flist
Set Flist = Nothing
End Sub