Question

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

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

Answer 1

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

Answer 2

sql = "show tables"

执行这个sql语句就行了吧
还有可能和你的数据库有关
不同的数据库这个语句有点不一样