使用ADOX方便的查询表和字段

原创 2004年09月08日 23:27:00

测试环境:WINXP+VB6

添加2个列表框,1个按钮

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

'引用微软 ADO Ext.2.X for dll and Security

Dim cat As ADOX.Catalog

Dim cnn As ADODB.Connection

Dim tbl As ADOX.Table

 

Private Sub Command1_Click()

On Error Resume Next

For Each tbl In cat.Tables

'如果是sqlserver数据库,则变成If Left(tbl.Name, 3) <> "sys"

If Left(tbl.Name, 4) <> "MSys" Then

List1.AddItem tbl.Name

End If

Next

End Sub

 

Private Sub Form_Load()

Set cnn = New ADODB.Connection

Set cat = New ADOX.Catalog

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:/csdn_vb/database/article.mdb"

'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"

Set cat.ActiveConnection = cnn

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

Set cat = Nothing

Set con = Nothing

End Sub

 

Private Sub List1_Click()

Dim fld

Dim intfield As Integer

List2.Clear

intfield = cat.Tables(List1.List(List1.ListIndex)).Columns.Count

For i = 0 To intfield - 1

    Set fld = cat.Tables(List1.List(List1.ListIndex)).Columns(i)

    List2.AddItem fld.Name & " " & fld.Type & " " & fld.DefinedSize

Next

End Sub

关联数据库字典表的多表查询

学习数据库查询的时候对多表连接查询的有些概念还比较模糊。而连接查询是在数据库查询操作的时候肯定要用到的。对于此概念  我用通俗一些的语言和例子来进行讲解。这个例子是我讲课的时候经常采用的例子。  ...
  • jiyunxielu783288
  • jiyunxielu783288
  • 2016年11月10日 11:21
  • 1092

SQL Server 2000中查询表名,列名及字段类型

经常碰到一些忘记表名称的情况,此时只记得个大概,此时可通过查询系统表Sysobjects找到所要的表名,如要查找包含用户的表名,可通过以下SQL语句实现, Select * From sy...
  • voodooer
  • voodooer
  • 2014年01月13日 08:33
  • 11575

Oracle 查询表信息(字段+备注)

获取表字段: select * from user_tab_columns where Table_Name='用户表' order by column_name 获取表注释: selec...
  • Zhangxichao100
  • Zhangxichao100
  • 2017年05月19日 10:45
  • 1444

resultMap中两张表id字段相同,数据查询异常解决

最近,在学习MyBatis 关联数据查询时,遇到了问题。 User表在本例子中存储文章作者的相关信息。User表的详细设计如下: Article表存储了文章的相关内容。Article表的详细设计如...
  • tingyu1995
  • tingyu1995
  • 2017年11月21日 16:11
  • 101

hibernate多表查询指定字段(两张表以上)

hibernate数表关联查询指定字段
  • warmcore
  • warmcore
  • 2017年04月09日 21:45
  • 694

MySQL单表多字段模糊查询解决方法

MySQL单表多字段模糊查询解决方法  (2012-02-25 09:53:07) 转载▼ 标签:  it 分类: php 在最近的...
  • u013288190
  • u013288190
  • 2015年03月01日 22:16
  • 2035

关于oracle sql语句查询时 表名和字段名要加双引号的问题详解

作为oracle的初学者相信大家一定会遇到这个问题,如图:          明明就是navicat可视化创建了表,可是就是不能查到!这个为什么呢?           select * fr...
  • wanghaiping1993
  • wanghaiping1993
  • 2015年04月01日 14:42
  • 1339

获取通过sql查询数据库的表,字段,主键,自增,字段类型等信息。

1.查询所有表,以及表的备注信息。 Oracle数据库 select t.table_name tableName, cmts.comments descr from user_tables t...
  • xiaozaq
  • xiaozaq
  • 2017年02月28日 08:53
  • 1060

php查询mysql表中所有字段详细信息

有时需要把整个字段的结构信息查询出来,于是我们可以通过 SHOW FULL COLUMNS FROM tbl_name [FROM db_name]//列出字段及详情 ...
  • myweishanli
  • myweishanli
  • 2013年10月11日 10:46
  • 1259

查询postgresql数据库所有表中的所有字段包含一个字符串

简单的查询postgresql数据库所有表中的所有字段包含一个字符串
  • houninghhh
  • houninghhh
  • 2017年06月01日 17:55
  • 588
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用ADOX方便的查询表和字段
举报原因:
原因补充:

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