国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 孟村| 大连市| 南华县| 赤水市| 教育| 闽清县| 澄城县| 庄浪县| 邮箱| 政和县| 竹山县| 德钦县| 镇江市| 新丰县| 泸西县| 兴城市| 鄂伦春自治旗| 固镇县| 洮南市| 五台县| 大方县| 休宁县| 铜川市| 宜黄县| 云霄县| 永昌县| 辉县市| 军事| 睢宁县| 丰都县| 金平| 武强县| 霍林郭勒市| 灵山县| 威海市| 合肥市| 合水县| 崇义县| 泰安市| 汶上县| 南丰县|