请教各位怎么才能读出Assecc数据库里的所有表名？急用的！请大家帮帮忙！

[dragonsou]

请教各位怎么才能读出Assecc数据库里的所有表名？急用的！请大家帮帮忙！

[mellow]

http://www.csdn.net/expert/topic/296/296714.shtm

[j_x_y]

如果用Access

Private Sub Command1_Click()
Dim db As Database
Dim tb As TableDef
Set db = OpenDatabase("c:\temp\myDB.mdb")
For Each tb In db.TableDefs
MsgBox tb.Name
Next tb
End Sub
好像其中有五个表是系统表(MSys开头的)


不同的数据库会有所不同的。一般来说数据库都会有自己的相关命令，但归根都时存在几个最基本的系统表里，在那里你可以找到包括每个表的定义等信息。建议使用数据库自己提供的命令。如mysql使用命令show tables;


给分我啊

[ozw]

在你的窗口上加一个公用对话框cmdlg,一个List控件List1,再引用Microsoft DAO 3.51/3.6库
调用以下过程就可以在List中显示所有表格的名称
Private Sub GetAllTable()
Dim i As Integer
Dim db As Database
Dim tb As TableDef
Dim dbName As String
CmDlg.Filter = "Access Database (*.MDB)|*.MDB"
CmDlg.ShowOpen
If CmDlg.FileName = "" Then Exit Sub
dbName = CmDlg.FileName
Set db = OpenDatabase(CmDlg.FileName)
db.TableDefs.Refresh
For Each tb In db.TableDefs
List1.AddItem tb.Name
Next
For i = 1 To 5
List1.RemoveItem 0
Next i
End Sub