建站
咨詢
售后
建站咨詢
新聞中心
如何在 Access 數(shù)據(jù)庫中查詢所有表名
創(chuàng)新互聯(lián)專注于蕭縣企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開發(fā),商城建設(shè)。蕭縣網(wǎng)站建設(shè)公司,為蕭縣等地區(qū)提供建站服務(wù)。全流程按需搭建網(wǎng)站，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
Microsoft Access 數(shù)據(jù)庫是一種非常流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，它可以用于管理和存儲數(shù)據(jù)，并且可以輕松地創(chuàng)建和管理數(shù)據(jù)庫表格、字段、查詢、表單和報表。有時，我們需要查詢所有的表名，以便了解數(shù)據(jù)庫中表格的總體概況，以便更好地管理和維護它們。本文將介紹在 Access 數(shù)據(jù)庫中查詢所有表名的步驟和方法。
一、使用訪問表
使用訪問表是查詢和管理 Access 數(shù)據(jù)庫中所有表格的一種簡單方法。它提供了一個非常簡單和快速的方式來列出 Access 數(shù)據(jù)庫中所有表格的名稱，同時提供了其他有用的信息，如數(shù)據(jù)類型、大小和位置等。
要使用訪問表方式列出所有表格，請按照以下步驟進行操作：
1. 在 Access 數(shù)據(jù)庫中，單擊左側(cè)導航欄上的“導航窗格”按鈕。
2. 在打開的導航窗格中選擇“對象類型”下的“表格”選項卡。
3. 此時，將顯示 Access 數(shù)據(jù)庫中所有的表格名稱。您可以單擊任何表格名稱，以查看其詳細信息，如表格結(jié)構(gòu)、索引、約束等信息。
4. 如果您想更改訪問表，可以單擊“訪問表”選項卡下的任何表格名稱，然后單擊“編輯”按鈕。這將打開一個新的窗口，在其中您可以修改表格結(jié)構(gòu)和屬性。
二、使用 SQL 查詢
另一種查詢 Access 數(shù)據(jù)庫中所有表格名稱的方法是使用 SQL 查詢。雖然這種方法需要一些數(shù)據(jù)庫的知識和經(jīng)驗，但它提供了更強大和靈活的查詢功能，并且可以從數(shù)據(jù)庫中檢索許多其他有用的信息，例如表格大小、約束、索引、關(guān)系等。
要使用 SQL 查詢列出所有表格，請按照以下步驟進行操作：
1. 打開 Access 數(shù)據(jù)庫，并單擊“創(chuàng)建”選項卡中的“查詢設(shè)計”按鈕。
2. 在查詢設(shè)計視圖中，單擊“關(guān)閉”按鈕，如果 Access 問您是否要保存對現(xiàn)有查詢的修改，請單擊“否”。
3. 在工具欄上單擊“SQL”按鈕，以打開 SQL 查詢編輯器。
4. 在 SQL 查詢窗口中，輸入以下命令，并按“Enter”鍵執(zhí)行它：
SELECT MSysObjects.Name As table_name FROM MSysObjects WHERE (((MSysObjects.Type)= -2147483646));
5. 上述命令將檢索所有的表格名稱，并將其輸出到查詢結(jié)果窗口中。
6. 如果您想獲得其他有用的信息，例如表格大小、索引和關(guān)系等，請修改以上命令以添加您需要的信息。
三、在 VBA 中編寫代碼
最后一種方法是利用 Access 的 VBA 編程語言來編寫代碼查詢所有的表格。這種方法需要一些編程經(jīng)驗，但它可以自動化查詢過程，并從多個數(shù)據(jù)庫文件中檢索表格信息。
以下是一個簡單的 VBA 代碼示例，將檢索所有表格的名稱并將其輸出到消息框中：
Sub listAllTables()
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb()
For Each tdf In db.TableDefs
If tdf.Attributes And dbHiddenObject Then
‘ignore hidden objects
Else
MsgBox tdf.Name
End If
Next tdf
End Sub
該代碼將按名稱列出所有的表格，并將其輸出到一個消息框中。如果您想獲得其他有用的信息，請修改代碼以添加您想要的信息。
以上是在 Access 數(shù)據(jù)庫中查詢所有表格的幾種方法。使用這些方法可以方便地列出所有的表格，并且可以從多個數(shù)據(jù)庫文件中檢索信息。無論您是想了解數(shù)據(jù)庫的總體概況，還是需要更好地管理和維護它們，這些方法都可以幫助您快速找到您需要的信息。無論您是使用 Access 數(shù)據(jù)庫作為業(yè)務(wù)應(yīng)用程序的一部分，還是想快速了解 Access 數(shù)據(jù)庫的基本結(jié)構(gòu)和屬性，這些方法都是非常有用的。
相關(guān)問題拓展閱讀：
- vb如何獲取access數(shù)據(jù)庫的所有表和字段名？？
- VB如何查找ACCESS數(shù)據(jù)庫中的所有表
vb如何獲取access數(shù)據(jù)庫的所有表和字段名？？
Connection.OpenSchema 枯嫌猜adSchemaTables adSchemaColumns
====================================================
具體實現(xiàn)代碼：
Private Sub 者殲Command1_Click()
Dim cnn As Object
Const adSchemaTables = 20
Const adSchemaColumns = 4
Set cnn = CreateObject(“adodb.connection”)
cnn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’c:\test.mdb’;Persist Security Info=False”
Set rds = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, “Table”沒型))
Debug.Print “Table_Name”, “Column_Name”
Do Until rds.EOF
Table_name = rds!Table_name
Set temp = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, Table_name))
Do Until temp.EOF
Debug.Print Table_name, temp!Column_Name
temp.MoveNext
Loop
rds.MoveNext
Loop
rds.Close
temp.Close
cnn.Close
End Sub
給LZ一個代碼可以搜索ACCESS數(shù)據(jù)庫內(nèi)所有表名的代碼。
Option Explicit
Dim TableSet As ADODB.Recordset
Dim Gconnection As ADODB.Connection
Dim lianjie As String
Sub getTableName()
lianjie = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\LDGZ\南匯40M^2New\ldgz30_wdN19200\Data\wdold.mdb;Persist Security Info=False”
Set Gconnection = New ADODB.Connection
渣衫 Gconnection.Open lianjie
Set TableSet = Gconnection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
Do Until 羨嘩TableSet.EOF
如派腔List1.AddItem TableSet!table_name
TableSet.MoveNext
Loop
End Sub
Private Sub Form_Load()
getTableName
End Sub
LZ可以將lianjie變量以你自己的連接字符串替代。我這里是用ACCESS7的數(shù)據(jù)庫。
再給LZ提供一個鏈接
是關(guān)于獲取“
VB 讀取ACCESS數(shù)據(jù)庫中所有表名及指定表的字段名
“的Word文件。
樓主可以訪問本人陵雀的
百度空間
文章 “VB將
ACCESS數(shù)據(jù)庫
中的所扮汪鏈有表名加載到列表框里”。那里列舉了兩種解廳孫決方案及有關(guān)代碼，相信能幫到你。
獲取某張表的所有字段名可以參考我的以下知道回答
引用方法：
引用ADO—— 菜單”工程”-> “引用 “–>勾選 Microsoft ActiveX Data Objects 2.1 Library 或更高版本，點擊確定按鈕。
方法一
Private Sub Form_Load()
Dim cn As New ADODB.Connection ‘聲明并實例化一個ADO連接對象
Dim cnStr As String’聲明一個連接字符串變量
Dim rsSchema As New ADODB.Recordset ‘聲明并實例化一個記錄集對象
‘設(shè)置連接當前目錄下“MyAccess.mdb”之連接字符串
cnStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MyAccess.mdb;Persist Security Info=False;”
cn.Open cnStr ‘打開與該數(shù)據(jù)庫的連接
Set rsSchema = cn.OpenSchema(adSchemaTables) ‘打開數(shù)據(jù)庫所有表記錄集
‘循環(huán)將所有表名逐個耐敗寫入列表框
Do Until rsSchema.EOF
If rsSchema!TABLE_TYPE = “TABLE” Then
List1.AddItem rsSchema!TABLE_NAME
End If
rsSchema.MoveNext
Loop
rsSchema.Close ‘關(guān)閉記錄集
Set rsSchema= Nothing ‘釋放記錄集對象
cn.Close ‘關(guān)閉連接
Set cn = Nothing ‘釋放連接對象
End Sub
方法二
ACCESS數(shù)據(jù)庫系統(tǒng)表”MsysObjects”里存放著所有數(shù)據(jù)表的資料，但是其訪問權(quán)限默認為不開放。如果不嫌設(shè)置ACCESS數(shù)據(jù)庫系統(tǒng)表權(quán)限麻煩，下列VB代碼可以直接讀取”MsysObjects”里記載的已保存表名信息，并于窗體加載時將得到的全部表名寫入列表框里。
首先要設(shè)置讀取ACCESS數(shù)據(jù)庫系統(tǒng)表”MsysObjects”的權(quán)限，方法如下：
打開ACCESS數(shù)據(jù)庫–>菜單–>工具–>選項 打開選項對話框，于視圖選項卡 勾選“系統(tǒng)對象”點擊“確定”按鈕；
跟著，菜單–>工具–>安全–>用戶與組權(quán)限 打開“用戶與組權(quán)限”對話框，于權(quán)限選項卡 選擇 “管理員、”MsysObjects”表 于權(quán)限框勾選“讀取數(shù)據(jù)”點擊“確定”按鈕。
***注意為了確保ACCESS數(shù)據(jù)庫的安全，設(shè)置完權(quán)限后，應(yīng)將系統(tǒng)對象重新隱藏。
菜單–>工具–>選項 打開選項對話框，于視圖選項卡 取消勾選“系統(tǒng)對象”
點擊“確定昌山顫”按鈕。
Private Sub Form_Load()
Dim cn As New ADODB.Connection ‘聲明并實例化一個ADO連接對象
Dim cnStr As String’聲明一個連接字符串變量
Dim rs As New ADODB.Recordset ‘聲明并實例化一個記錄集對象
Dim sqlStr As String ‘聲明一個SQL查詢字符串變量
‘設(shè)置連接當前目錄下“MyAccess.mdb”之連接字符串
cnStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\db1.mdb;Persist Security Info=False;”
cn.Open cnStr ‘打開與該數(shù)據(jù)庫的連接
rs.CursorLocation = adUseClient ‘設(shè)置為客戶端游標
‘設(shè)置查詢表名列表之SQL語句
sqlStr = “select Name from MsysObjects where type=1 and Flags=0”
rs.Open sqlStr, cn ‘打開數(shù)據(jù)庫表記錄集
‘因為直接讀取“MsysObjects“得到的表名列表秩序混亂，故這里強制對表名進行排序
rs.Sort = “Name ASC”
‘循環(huán)逐個將表名放置到列表框里
Do Until rs.EOF
List1.AddItem rs!Name
rs.MoveNext
Loop
rs.Close ‘關(guān)閉記錄集
Set rs = Nothing ‘釋放記錄集對象
cn.Close ‘關(guān)唯者閉連接
Set cn = Nothing ‘釋放連接對象
End Sub
VB如何查找ACCESS數(shù)據(jù)庫中的所有表
‘程序引用ado 畫面添加combo1
Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form_Load()
Dim i As Integer
On Error GoTo Err
appdisk = Trim(App.Path)
If Right(appdisk, 1) “\” Then appdisk = appdisk & “\”
db = appdisk
db = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” & db & “alex.mdb”
”’ db = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” & Text2.Text & “”
conn.CursorLocation = adUseClient
conn.Open db
i = 0
Set Rs = conn.OpenSchema(adSchemaTables)
‘SQL Server:
‘select * from sysobjects where type=’U’ and status>0
If Rs.EOF = False Then
Do Until Rs.EOF
If Left(Rs!TABLE_NAME, 4) “MSys” Then
Combo2.AddItem Rs!TABLE_NAME, i
i = i + 1
End If
Rs.MoveNext
Loop
End If
Rs.Close: Set Rs = Nothing
Exit Sub
Err:
MsgBox Err.Number
Unload Me
End Sub
如果想要對數(shù)據(jù)庫進行查找操作，那么你需要先定義數(shù)據(jù)庫字符串，和一賣鎮(zhèn)個記錄集對像
Public conn As ADODB.Connection ‘數(shù)據(jù)庫對象
Public xs As ADODB.Recordset ‘記錄集對象用來存放寬配雀查找結(jié)果
Sub Connect() ‘連接到DB1數(shù)據(jù)庫
Set conn = New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\db1.mdb”
conn.Open
End Sub
如果有一個數(shù)據(jù)庫db1.mdb它里面有一個表
學生（姓名，學號)
現(xiàn)在想要查找學號為10的學生記錄。
public sub cazhao()
dim sql as string
sql=”select * from 學生 where 學號=10″
set xs =new ADODB.Recordset
xs.open sql,conn,2,2
end sub
執(zhí)行完cazhao過程后，xs里面就是查找的結(jié)果了。比如把 xs的值賦給文本框：
text1.text=xs(“姓名”)
text2.text=xs(“學號”)
如果xs中有多條記錄可以慎早通過這樣的方式遍歷：
do while not xs.eof
想要賦值的對象=xs(“字段名”)
.
.
.
xs.movenext
loop
用DAO3.6訪問mdb數(shù)鍵缺裂稿閉據(jù)庫:
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(“g:\NWIND.MDB”)
For i = 0 To db.TableDefs.Count – 1
‘輸出各數(shù)據(jù)扮渣表名
Print db.TableDefs(i).Name
Next i
db.Close
Set db = Nothing
你把要實現(xiàn)的說明白些
關(guān)于access 查詢數(shù)據(jù)庫中所有表名的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。
創(chuàng)新互聯(lián)成都網(wǎng)站建設(shè)公司提供專業(yè)的建站服務(wù)，為您量身定制，歡迎來電（028-86922220）為您打造專屬于企業(yè)本身的網(wǎng)絡(luò)品牌形象。
成都創(chuàng)新互聯(lián)品牌官網(wǎng)提供專業(yè)的網(wǎng)站建設(shè)、設(shè)計、制作等服務(wù)，是一家以網(wǎng)站建設(shè)為主要業(yè)務(wù)的公司，在網(wǎng)站建設(shè)、設(shè)計和制作領(lǐng)域具有豐富的經(jīng)驗。
當前題目：Access數(shù)據(jù)庫查詢所有表名(access查詢數(shù)據(jù)庫中所有表名)
鏈接URL：http://m.fisionsoft.com.cn/article/djdhieg.html
