使用ADOX方便的查询表和字段
来源:互联网 发布:藏宝海湾 拍卖行数据 编辑:程序博客网 时间:2024/05/17 23:17
测试环境:WINXP+VB6
添加2个列表框,1个按钮
'引用微软 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方便的查询表和字段
- ADOX获取表的字段信息
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 使用ADOX创建Access数据库和表
- 获取access所有表和字段,不引用ADOX
- 获取access所有表和字段,不引用ADOX
- 在C#中使用ADOX创建Access数据库和表
- VB使用ADOX获得各种数据库的表
- 一小段利用adox获取表结构主键字段的代码
- 一小段利用adox获取表结构主键字段的代码
- ADOX Access字段类型
- 查询表和字段
- diary
- 一些链接
- XML校验的问题
- Improving Web Services Performance
- 开张了!
- 使用ADOX方便的查询表和字段
- Spyrius
- 激活程序的disabled的按钮
- JAVA代码编写的30条建议
- 彻底搬家!
- 推荐几个W3C标准的好站
- Java(TM) Web Start 技术
- 习惯用语
- unix下远程访问oracle