VB有什么办法列出数据库(access类型的)中所有的表名吗？

sgzhxfsg 2008-01-03 07:49:20

VB6.0 有什么办法列出数据库(access类型的，Sjk.mdb)中所有的表名吗？
数据库是用Office 的 Access 创建的
而且设置有密码(密码是:1)

...全文

378 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

vbman2003 2008-01-15

打赏
举报





    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    

    Set cn = New ADODB.Connection

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _

        & "Data Source=" & App.Path & "\db1.mdb;" _

        & "Persist Security Info=False;" _

        & "Jet OLEDB:Database Password=123"

    

    Set rs = New ADODB.Recordset

    Set rs = cn.OpenSchema(adSchemaTables, _

        Array(Empty, Empty, Empty, "TABLE"))

    While Not rs.EOF

        Debug.Print rs!TABLE_NAME

        rs.MoveNext

    Wend

    rs.Close

    cn.Close

tingting1123 2008-01-15

打赏
举报

记号.

zdingyun 2008-01-15

打赏
举报

借助vbman2003的代码，将ACCESS数据库的表名放入ComboBOX显示：

Option Explicit

    Dim tabelName(50) As String

    Dim i As Integer

    Dim l As Integer



Private Sub Combo1_Click()

    Text1 = Combo1

End Sub



Private Sub Command1_Click()

    Dim fileN As String

    CommonDialog1.ShowOpen

    fileN = CommonDialog1.FileName

    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _

    & "Data Source=" & fileN & ";" _

        & "Persist Security Info=False;" _

        & "Jet OLEDB:Database Password=123"

    Set rs = New ADODB.Recordset

    Set rs = cn.OpenSchema(adSchemaTables, _

        Array(Empty, Empty, Empty, "TABLE"))

    While Not rs.EOF

        tabelName(i) = rs!TABLE_NAME

        i = i + 1

        rs.MoveNext

    Wend

    rs.Close

    cn.Close

    l = i - 1

    For i = 0 To l

        Combo1.AddItem tabelName(i)

    Next

End Sub



Private Sub Form_Load()

    Text1 = ""

    Combo1 = ""

End Sub

波导终结者 2008-01-07

打赏
举报

马克

zhngtl 2008-01-07

打赏
举报

dim cn As ADODB.Connection
dim rs as ADODB.Recordset
cn.open "连接串"
set rs=cn.OpenSchema(adSchemaTables)

记录rs(2)中保存的就是表名，其中"MSysRelationships", "MSysQueries", "MSysObjects", "MSysModules2", "MSysModules", "MSysACEs", "MSysAccessObjects"为系统表，其他为用户定义表