如何取得access中所有的表名及表的说明？

CoolCHEN 2004-03-29 08:59:58

等啊！

...全文

209 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

CoolCHEN 2004-03-29

打赏
举报

这个帖子先结了，今晚说明是搞不定了，等下单独发贴说

northwolves 2004-03-29

打赏
举报

Sub showtablename(ByVal mydbpath As String) '显示数据库的非系统表的表数目
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & mydbpath
msg = ""
For I = 0 To mycat.Tables.Count - 1
If Left(mycat.Tables(I).Name, 4) <> "MSys" Then msg = msg & mycat.Tables(I).Name & vbCrLf '去掉6个系统表
Next
MsgBox msg, vbOK, "数据库 " & mydbpath & " 共有 " & mycat.Tables.Count - 6 & "个表！"
Set mycat.ActiveConnection = Nothing
End Sub

说明未找见

pcwak 2004-03-29

打赏
举报

我晕，果然是属性中的说明，期待高手

CoolCHEN 2004-03-29

打赏
举报

说明还没出来~~~~~~UP

CoolCHEN 2004-03-29

打赏
举报

是在access中右键表---属性中的说明

pcwak 2004-03-29

打赏
举报

莫非是属于中的说明？？

华芸智森 2004-03-29

打赏
举报

access的表还有个说明，如何取到？

没试过.....你探索一下吧.
如果可以,将代码贴出来让兄弟们参考一下.

华芸智森 2004-03-29

打赏
举报

取ACCESS表名.
'-----------------------------------------------
引用.
Microsoft Activex Data Objects 2.5 Library
Microsoft Ado Ext 2.6 For DDL And Security
'=====================================================
Public mCon As ADODB.Connection
Public mCat As ADOX.Catalog

Public DB_Name As String
Public DB_Title As String

Private Sub Command1_Click()
Dim I As Long
Dim TBL As ADOX.Table

If Not mCon Is Nothing Then Set mCon = Nothing
Set mCon = New ADODB.Connection

mCon.Provider = "Microsoft.Jet.OLEDB.4.0"
mCon.Mode = adModeRead
mCon.CursorLocation = adUseClient
mCon.Properties("Data Source") = "E:\WORKSHAR\CODE.MDB"
mCon.Properties("Jet OLEDB:Database Password") = ""
mCon.Open

Set mCat = New ADOX.Catalog
mCat.ActiveConnection = mCon

For Each TABL In mCat.Tables
Debug.Print TABL.Name
Next
End Sub

CoolCHEN 2004-03-29

打赏
举报

access的表还有个说明，如何取到？

陈年椰子 2004-03-29

打赏
举报

来慢了，：）
楼上说的很好，

pcwak 2004-03-29

打赏
举报

'列出所有的表名
Private Sub Command2_Click()
Dim TableName As String
Set rs = conn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
TableName = rs.Fields("TABLE_NAME")
List1.AddItem TableName
rs.MoveNext
Loop
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/db.mdb;Persist Security Info=False"
conn.Open
rs.Open "select * from info", conn, adOpenKeyset, adLockOptimistic
End Sub

KissApple 2004-03-29

打赏
举报

'
'取某数据库下的数据表
'函数名:GetDbTabS
'参数: DBconn ADO连接
'返回值:包含数据表的字符串数组
'例: TabArr=GetDbTabS(P_CNN)

Public Function GetDbTabs(ByRef DBconn As ADODB.Connection) As String()
Dim RstSchema As ADODB.Recordset
Dim strCnn As String
Dim ReturnVal() As String
Dim ReID As Long

On Error Resume Next

Set RstSchema = DBconn.OpenSchema(adSchemaTables)

Do Until RstSchema.EOF
If UCase$(Left$(RstSchema.Fields("TABLE_TYPE"), 3)) <> "SYS" Then
ReID = ReID + 1
ReDim Preserve ReturnVal(ReID)
ReturnVal(ReID - 1) = RstSchema.Fields("TABLE_NAME") ' & ":" & RstSchema!TABLE_TYPE
End If
RstSchema.MoveNext
Loop
RstSchema.Close
Set RstSchema = Nothing
GetDbTabs = ReturnVal
End Function

CoolCHEN 2004-03-29