VB中可以得到ORACLE某个数据库里所有的表和每个表的具体字段吗？

Question

谁用了魔法门英雄无敌吗？mail一个reg文件如何？？
我重装系统以后就不行了，注册表里面要一个文件，大家mail一个给我号码？我得是死亡阴影简体中文版！！！求助！！！
[email protected]

Answer 1

谁用了魔法门英雄无敌吗？mail一个reg文件如何？？
我重装系统以后就不行了，注册表里面要一个文件，大家mail一个给我号码？我得是死亡阴影简体中文版！！！求助！！！
[email protected]

Answer 2

在你硬盘搜索ado210.chm看看ADOX部分
除连接字符串外没什么差别

Answer 3

使用adox
Microsoft ADO Ext.2.5 for DDL and SecurityDim cat As New ADOX.catalog
Dim tblname() As String
Dim fieldname() As String
Dim i As Integer
Dim j As Integer
cat.activeconnection = ""
ReDim tblname(cat.Tables.Count) As String
For i = 0 To cat.Tables.Count - 1
    tblname(i) = cat.Tables(i).Name
    ReDim fieldname(cat.Tables.Count, cat.Tables(i).Columns.Count)
    For j = 0 To cat.Tables(i).Columns.Count - 1
        fieldname(i, j) = cat.Tables(i).Columns(j).Name
    Next
Next可能会有些小出入，你在查一下吧。