如何取得access数据库中表的个数，在选择表以后获得字段的属性呢？

unicornyl 2003-03-12 08:51:22

急！！
求救啊！

...全文

97 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-13

打赏
举报

这是我写的几个SUB：

Sub creatmdb() '创建数据库
If Dir("d:\new.mdb") <> "" Then Kill "d:\new.mdb"
Dim mycat As New ADOX.Catalog
mycat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new.mdb"
MsgBox "创建数据库 e:\new.mdb 成功！"
End Sub
Sub createtable() '创建数据库的表
On Error Resume Next
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
For i = 1 To 9
mytable.Name = "表" & i
mytable.Columns.Append "字段1", adDate
mytable.Columns.Append "字段2", adInteger
mytable.Columns.Append "字段3", adBoolean
mytable.Columns.Append "字段4", adVarChar
mycat.Tables.Append mytable
Set mytable = Nothing
Next
MsgBox "创建表1----表9 成功！"
Set mycat.ActiveConnection = Nothing
End Sub

Sub showtablename() '显示数据库的非系统表的表数目
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\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, "数据库 d:\new.mdb 共有 " & mycat.Tables.Count - 4 & "个表！"
Set cat.ActiveConnection = Nothing
End Sub

Sub showfields(ByVal tablename As String) '显示数据库指定表的字段名称及类型
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
msg = ""
For i = 0 To mycat.Tables(tablename).Columns.Count

msg = msg & mycat.Tables(tablename).Columns(i).Name & " 类型: " & mycat.Tables(tablename).Columns(i).Type & vbCrLf

Next
MsgBox msg, 64, tablename
Set cat.ActiveConnection = Nothing
End Sub

unicornyl 2003-03-12