日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

如何獲取access數(shù)據(jù)庫中表的個數(shù)及名稱_Access數(shù)據(jù)庫教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：談Access：數(shù)據(jù)轉(zhuǎn)換問題
使用access數(shù)據(jù)庫時可能用到的數(shù)據(jù)轉(zhuǎn)換: 類型轉(zhuǎn)換涵數(shù): 函數(shù) 返回類型 expression 參數(shù)范圍 CBool Boolean 任何有效的字符串或數(shù)值表達式。 CByte Byte 0 至 255。 CCur C

以下為引用的內(nèi)容：
'功能：獲取access庫中表的個數(shù)及表的名稱
'用ado怎樣實現(xiàn)
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本號）
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN　 As New ADODB.Connection　　　　　　　　'定義數(shù)據(jù)庫的連接
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ù)庫對象列表。盡管未在文檔中記載，你仍可通過查詢它來獲取你想要的。但是默認情況下無法操作系統(tǒng)表，必須手動設(shè)定權(quán)限收才能查詢系統(tǒng)表。

請參考以下動畫：如何獲取對msysobject的操作權(quán)限

http://access911.net/eg/swf/msobject.swf

警告：不要修改任何ACCESS系統(tǒng)表，否則會出現(xiàn)不可意料的情況.

使用下列 SQL 語句來獲取你想要的

查詢:

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;

報表:

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.Name;

分享：談Access為后臺數(shù)據(jù)庫的網(wǎng)站統(tǒng)計系統(tǒng)
一個能對訪問者進行編號、記錄訪問次數(shù)、IP、時間的統(tǒng)計制作實例 我以ACCESS庫為例子，其實用SQL SERVER庫也只要改一下鏈接庫的語句就得啦，庫結(jié)構(gòu)如下 庫文件名：　CONT.ASP

來源：模板無憂//所屬分類：Access數(shù)據(jù)庫教程/更新時間：2009-08-26
相關(guān)Access數(shù)據(jù)庫教程：