如何读取ACCESS数据库中表格的名称?

shenhong420 2003-09-23 10:21:11
小弟一菜鸟,现遇到需在ACCESS数据库中读取表格名称,请高手指教指教!谢谢!
...全文
192 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-09-24
  • 打赏
  • 举报
回复
USE ADOX:

Sub showtablename() '显示数据库的非系统表的表数目
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=e:\new.MDB"
msg = ""
For i = 0 To mycat.Tables.Count - 1
If Left(mycat.Tables.Item(i).Name, 4) <> "MSys" Then '去掉4个系统表
msg = msg & mycat.Tables.Item(i).Name & vbCrLf
End If
Next
MsgBox msg, vbOK, "数据库 e:\new.mdb 共有 " & mycat.Tables.Count - 4 & "个表!"
Set cat.ActiveConnection = Nothing
End Sub
yoki 2003-09-23
  • 打赏
  • 举报
回复
Dim cnSourceDB As New ADODB.Connection
Dim rsTables As New ADODB.Recordset

cnSourceDB.CursorLocation = adUseClient
cnSourceDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp.mdb;Persist Security Info=False" '有密码就要加这句;Jet OLEDB:Database Password=****"
Set rsTables = cnSource.OpenSchema(adSchemaTables)
Do While Not rsTables.EOF
If UCase(rsTables!TABLE_TYPE) = "TABLE" Then Debug.Print rsTables!TABLE_NAME
rsTables.MoveNext
Loop
rsTables.Close
Set rsTables = Nothing
cnSourceDB.Close
Set cnSourceDB = Nothing
sword281 2003-09-23
  • 打赏
  • 举报
回复
楼上已给出标答
strongfisher 2003-09-23
  • 打赏
  • 举报
回复
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
Fengq 2003-09-23
  • 打赏
  • 举报
回复
gz
strongfisher 2003-09-23
  • 打赏
  • 举报
回复
'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-19
'功能:获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn 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

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧