功能：獲取access庫(kù)中表的個(gè)數(shù)及表的名稱 '用ado怎樣實(shí)現(xiàn) '工程--- 引用--- Microsoft ActiveX Data Object 2.x（版本號(hào)） '---------------------------------------------------------------------------- Private Sub Form_Load() Dim adoCN As New ADODB.Connection '定義數(shù)據(jù)庫(kù)的連接 Dim strCnn As New ADODB.Recordset Dim rstSchema As New ADODB.Recordset Dim I As Integer str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:Northwind.MDB;Persist Security Info=False" adoCN.Open str1
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF If rstSchema!TABLE_TYPE = "TABLE" Then out = out "Table name: " _ rstSchema!TABLE_NAME vbCr _ "Table type: " rstSchema!TABLE_TYPE vbCr I = I + 1 End If rstSchema.MoveNext Loop MsgBox I rstSchema.Close
adoCN.Close Debug.Print out End Sub 方法二： Access 系統(tǒng)表 MsysObjects 包含了數(shù)據(jù)庫(kù)對(duì)象列表。盡管未在文檔中記載，你仍可通過(guò)查詢它來(lái)獲取你想要的。但是默認(rèn)情況下無(wú)法操作系統(tǒng)表，必須手動(dòng)設(shè)定權(quán)限收才能查詢系統(tǒng)表。 請(qǐng)參考以下動(dòng)畫(huà)：如何獲取對(duì)msysobject的操作權(quán)限 http://access911.net/eg/swf/msobject.swf 警告：不要修改任何ACCESS系統(tǒng)表，否則會(huì)出現(xiàn)不可意料的情況. 使用下列 SQL 語(yǔ)句來(lái)獲取你想要的 查詢: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name; 窗體: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name; 表: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (Left$([Name],4) "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name; 報(bào)表: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name; 模塊: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name; 宏: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1) "~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Namehtml教程
