在程序中判断一个Access数据库中有几张表

转载 2005年03月03日 09:08:00
Private Sub Form_Load()
'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"
'Microsoft ADO Ext.2.7 for DDL ado Security
 Dim cat As ADOX.Catalog
Dim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adocon
For i = 0 To cat.Tables.Count - 1         'cat.Tables.Count就是表的数量
   Debug.Print cat.Tables(i).Name   '取出表名
   If cat.Tables(i).Name = "MyTable" Then
   For j = 0 To cat.Tables(i).Columns.Count - 1
      Debug.Print cat.Tables(i).Columns(j)    '取出列名
      Debug.Print cat.Tables(i).Columns(j).Type '取出数据类型
      For Each p In cat.Tables(i).Columns(j).Properties
      Debug.Print p.Type & p.Name & p.Attributes    '取出列的属性
      Next
   Next j
  
   End If
Next i
cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length").Value = True '设置零长度正确
Set cat = Nothing
adocon.Close
Set adocon = Nothing
End Sub

项目二在写的一个网盘管理程序, 目前是半成品, 贴几张图给大家看看.

这个程序暂时命名PTDISK 前端UI用的基于bootstrap的一套东西, 叫做matrix-admin.  当然, 被我和组员修改了很多. 后端用的THINKPHP  因为上手简单嘛~   组员用...

SQLite怎么统计一个数据库中有多少张表,视图或者触发器 .

sqlite数据库中表、视图和触发器的基本信息存储在一张叫做sqlite_master的系统表中,所以要想统计有多少张表就要先学习sqlite_master表。 每一个sqlite数据库都有...

____74__获得Access数据库中Develop表中的每一个字段的数据类型

表描述同71 查看数据表中字段的各个数据类型 private void Form1_Load(object sender, System.EventArgs...

对jBPM4.4数据库的几张表简单介绍

对jBPM4.4数据库的几张表简单介绍:A。资源库和运行时表结构JBPM4_DEPLOYMENT   流程定义表                                          JB...
  • weilesi
  • weilesi
  • 2011年07月06日 22:25
  • 927

一个访问access数据库的小程序

  • 2009年08月17日 14:21
  • 37KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在程序中判断一个Access数据库中有几张表
举报原因:
原因补充:

(最多只允许输入30个字)