国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 數(shù)據(jù)庫(kù) > Access > 正文

如何獲取access數(shù)據(jù)庫(kù)中表的個(gè)數(shù)及名稱

2024-09-07 19:03:58
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
以下為引用的內(nèi)容:
'功能:獲取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.Name;

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 拜泉县| 枞阳县| 邹平县| 杭锦后旗| 吕梁市| 渑池县| 滕州市| 德州市| 三河市| 上饶县| 上思县| 仙桃市| 普宁市| 永城市| 确山县| 海晏县| 晋宁县| 芮城县| 南溪县| 宁津县| 乌海市| 西乡县| 宿州市| 开平市| 宁安市| 屏东市| 临桂县| 金塔县| 赣榆县| 灌阳县| 荥经县| 思南县| 清水县| 新龙县| 芦山县| 鄂伦春自治旗| 沛县| 满洲里市| 湛江市| 康乐县| 嘉荫县|