使用adodc控件如何取得Access数据库的所有表

james1976 2000-09-15 11:51:00

...全文

124 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wybin 2000-09-16

打赏
举报

按如下方法可连接到Access库并将所有表在Debug窗口中列出：
你可做修改满足自己需要：

'ADO数据库
Dim cnn1 As ADODB.Connection
'Dim cmd1 As ADODB.Command
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection

cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"

cnn1.Open "c:\db1.mdb"
'Set cmd1 = New ADODB.Command
'Set cmd1.ActiveConnection = cnn1
'cmd1.CommandTimeout = 15

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.close

james1976 2000-09-15