怎樣使用一個查詢獲得數據庫對象的名稱

函數:獲取access庫
'如何用ado實現
'項目->引用-> Microsoft ActiveX數據對象2.x(版本號)
'-
Private Sub Form _ Load()
Dim adoCN As New ADODB。“Connection”將數據庫的連接
dimstrnnas new adodb . recordset
dimrstschema定義爲new adodb . recordset
Dim I As Integer
str 1 =" Provider = Microsoft。Jet . OLEDB.4.0數據源=c:\Northwind。MDBpersist Security Info = False"
adoCN。open str 1

Set rst schema = adoCN。open schema(adSchemaTables)

Do Until rst schema。EOF
If rstSchema！TABLE _ TYPE =" TABLE" Then
out = out &"表名:" & _
rstSchema！TABLE_NAME & vbCr & _
"表類型:" & rstSchema！TABLE _ TYPE & vbCr
I = I 1
End If
rst schema。MoveNext
Loop
MsgBox I
rst schema。關閉

adoCN。關閉
調試。打印輸出
結束Sub

位律師廻複