在VB中如何用递归遍历多个数据表！

shuguangleo 2006-01-04 11:07:40

在VB中如何用递归遍历多个数据表！
表结构如下：

表名：Table1 Table2 Table3 Table4
字段：ID ID ID ID
Name Table1Id Table2Id Table3Id
Mun Name Name Name

...全文

198 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

zou19820704 2006-01-04

打赏
举报

引用ADODB HE ADOX

zou19820704 2006-01-04

打赏
举报

Option Explicit
Public mcat As ADOX.Catalog
Public mtbl As ADOX.Table
Public mtbls As ADOX.Tables

Public mcol As ADOX.Column
Public mcols As ADOX.Columns

Public mcnn As ADODB.Connection

Private Sub Command1_Click()
Set mcnn = New ADODB.Connection
mcnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\2003.mdb;Persist Security Info=False"
Set mcat = New ADOX.Catalog
Set mcat.ActiveConnection = mcnn

Set mtbls = mcat.Tables
For Each mtbl In mtbls
Debug.Print mtbl.Name
Set mcols = mtbl.Columns
For Each mcol In mcols
Debug.Print mcol.Name
Next
Next

winehero 2006-01-04

打赏
举报

没看明白...

zou19820704 2006-01-04

打赏
举报

(狼行天下) 说的对，只用ADOX足够了，我是画蛇添足了

northwolves 2006-01-04

打赏
举报

两层深度,嵌套循环.

northwolves 2006-01-04

打赏
举报

TO zou19820704(国际海员) :
-------------------------------------
ADOX is enough:

Dim mcat As New ADOX.Catalog
Set mcat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\2003.mdb;Persist Security Info=False"

VB6.0通用遍历所选文件夹及其多重子文件夹操作，直接使用Command按钮过程可以操作，无需其他额外控件。新建一个窗体，添加一个Command1按钮，添加一个listbox控件，名称为list1，打开一个Excel空白文件（如不需要请...

得到RSA密钥对，产生Signature对象,对用私钥对信息(info)签名，用指定算法产生签名对象，用私钥初始化签名对象，将待签名的数据传送给签名对象(须在初始化之后)，用公钥验证签名结果，使用公钥初始化签名对象,用于...

本课程带你从递归算法基础入手，课程是精讲大量实际项目中常用到的案例，课程深入浅出，包括递归入门，递归遍历、弟归穷举算法及各种项目，适合算法爱好者一起学习，后附每堂课项目源码，感兴趣可以观注博客，不定期...