我使用以下程式碼,想要取得每個Table,View的名稱
Dim adoConn As New ADODB.Connection
Dim strConn, strSQL As String
Dim cat As New ADOX.Catalog
Dim tbl As New Table
Dim qef As ADOX.View
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChangeMan.mdb;Persist Security Info=False"
adoConn.Open strConn
Set cat.ActiveConnection = adoConn
For Each tbl In cat.Tables
MsgBox tbl.Name
Next
但結果會連同系統Table,view都列出,請問如何只取得自建的Table及view
Dim adoConn As New ADODB.Connection
Dim strConn, strSQL As String
Dim cat As New ADOX.Catalog
Dim tbl As New Table
Dim qef As ADOX.View
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChangeMan.mdb;Persist Security Info=False"
adoConn.Open strConn
Set cat.ActiveConnection = adoConn
For Each tbl In cat.Tables
MsgBox tbl.Name
Next
但結果會連同系統Table,view都列出,請問如何只取得自建的Table及view
文章標籤
全站熱搜
有一System Store Procedure : SP_HELP , 會傳回該DataBase 內所有的 Table & View Name 您可試試用 ADO.Command 執行 , 傳回的 RecordSet 再整理一下應該就可以了