在程序中判断一个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

查看mysql数据库有多少张表....

SELECT COUNT(*) TABLES, table_schema FROM information_schema.TABLES WHERE table_schema = ‘tableNa...
  • qq_29729601
  • qq_29729601
  • 2017年12月19日 11:56
  • 74

输入一个日期判断是星期几 java

public class JudgeWeek { public static void main(String[] args) throws Exception { String str = ...
  • daohaode123
  • daohaode123
  • 2014年11月19日 23:09
  • 1870

查询access数据库中某个表是否存在

Access数据库虽然功能单一,但的确是一个小巧精干的开发伙伴,我在多个项目中与它见面,为了探知Access数据库的本源,今天上网查了些资料。现总结归纳如下: 在Access数据库中...
  • hank5658
  • hank5658
  • 2010年11月24日 16:21
  • 2631

统计MySQL中某个数据库中有多少张表

SELECT count(*) TABLES, table_schema FROM information_schema.TABLES  where table_schema = 'test' GRO...
  • u010652440
  • u010652440
  • 2014年11月04日 13:34
  • 452

关于Java中使用JDBC连接查询数据表中的数据

/** * 提取数据库表中数据 * @param sqlLabel SQL语句 * @param rMap 连接数据库参数集 * @return list */ public ...
  • u012429375
  • u012429375
  • 2014年11月09日 17:25
  • 572

根据给定日期判断当天是星期几

根据日期判断当前是星期几
  • liunian02050328
  • liunian02050328
  • 2016年03月14日 14:55
  • 1842

通过sql语句快速查询数据库共有多少张表

一、无条件查询:select * from tab  order by tname 二、过滤查询:select * from tab where tname not ...
  • sinat_27115575
  • sinat_27115575
  • 2017年08月03日 15:58
  • 828

SQL Server 最多可以有多少张表

     平时的项目很少会涉及这个问题,一般数据表结构建立以后,就基本固定了,大部分增长的都是行数据。但是当系统在某种情况下需要不断动态的增加表的时候,就会涉及到一个数据库最多可以有多少张表格。一般这...
  • ShinStone
  • ShinStone
  • 2010年09月06日 13:46
  • 2696

如何判断多个字段组成的关键字在另外一张表中是否存在

首先判断一个关键字在另外一张表中是否存在很容易!如果判断的关键字有多个字段构成怎么办呢?...
  • shuaihj
  • shuaihj
  • 2014年11月07日 09:57
  • 2465

Java 输入一个日期,判断是星期几

package com.zwg.calweek; import java.time.MonthDay; import java.util.Scanner; public class CalMai...
  • zhouwengong
  • zhouwengong
  • 2016年07月26日 21:32
  • 2810
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在程序中判断一个Access数据库中有几张表
举报原因:
原因补充:

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