如何用VB获取ACCESS数据库的所有表名

如果用VB获取ACCESS数据库的所有表名？

Dim TableSet As ADODB.Recordset
Dim Gconnection As ADODB.Connection

Sub getTableName()
Set Gconnection = New ADODB.Connection
Gconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Redeem.mdb;Persist Security Info=False"

Set TableSet = Gconnection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
Do Until TableSet.EOF
List1.AddItem TableSet!table_name
TableSet.MoveNext
Loop
End Sub

Private Sub Form_Load()
getTableName
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m28qp4s2.html