使用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

ADOX.Catalog简易中文文档

1、ADOX 概述 Microsoft® ActiveX® Data Objects Extensions for Data Definition Language and Security (AD...
  • liuyukuan
  • liuyukuan
  • 2016-10-19 16:55:54
  • 641

不用ADOX也可以判断access表是否存在

哈哈,不用ADOX也可以!! Dim cn ,strCnn,rstSchemaset cn = server.createobject("ADODB.Connection")    set strCn...
  • superdullwolf
  • superdullwolf
  • 2004-09-14 10:10:00
  • 2150

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

测试环境:WINXP+VB6添加2个列表框,1个按钮 引用微软 ADO Ext.2.X for dll and SecurityDim cat As ADOX.CatalogDim cnn As AD...
  • online
  • online
  • 2004-09-08 23:27:00
  • 3073

用ADox获得表的唯一索引

adox的功能据说很强大,但是我没感觉出来,因为我在asp下编写了很多程序,都运行不了。不知道什么原因,这里有一个程序可以获得唯一索引。可能有的朋友会做一些通用程序,也就是无论数据结构如何变化,程序不...
  • precipitant
  • precipitant
  • 2004-09-08 16:54:00
  • 1448

在C#中使用ADOX创建Access数据库和表

由于在程序中使用了ADOX,所以先要在解决方案中引用之,方法如下:解决方案资源管理器-->引用-->(右键)添加引用-->COM-->Microsoft ADO Ext. 2.8 for DDL an...
  • ltolll
  • ltolll
  • 2006-07-29 17:04:00
  • 6412

判断数据库中是否存在某个表

 ----------------------------------------------------------Author: xmxoxoUpdate: 2006-11-28Version: ...
  • xmxoxo
  • xmxoxo
  • 2006-11-28 16:16:00
  • 1238

关于 ADOX

1、ADOX 概述Microsoft® ActiveX® Data Objects Extensions for Data Definition Language and Security (ADOX...
  • slightboy
  • slightboy
  • 2005-02-02 14:16:00
  • 753

[AHK]用ADOX创建Access数据库

; Create a database using ADOX oCatalog := ComObjCreate("ADOX.Catalog") oCatalog.Create(sConne...
  • liuyukuan
  • liuyukuan
  • 2016-10-20 19:00:57
  • 423

用ADOX 创建数据库

用ADOX         BOOL   CPassportDoc::CreateDB(LPCTSTR   lpszFile)     {       if(::PathFileExists(lpsz...
  • wwwcs59
  • wwwcs59
  • 2009-09-25 20:24:00
  • 1229

使用ADOX创建Access数据库和表

using System;using ADOX; namespace WebPortal{ ///  /// CreateAccessDB 的摘要说明。 /// 对于不同版本的ADO,需要添加不同...
  • hejishan
  • hejishan
  • 2008-03-11 12:08:00
  • 189
收藏助手
不良信息举报
您举报文章:使用ADOX方便的查询表和字段
举报原因:
原因补充:

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