我想用ADOX做一个得到任何一种数据库所有的表和表结构的程序．但我不知道怎么做？

Question

Select Case .type1
      Case "oracle8i"
        pStr = "Provider=OraOLEDB.Oracle.1;User ID='" + .username + "';Data Source='" + .database1 + "';password='" + .password + "';Persist Security Info=true"
        mStrProvider = "Provider=OraOLEDB.Oracle.1;"
      Case "oracle"
        pStr = "Provider=MSDAORA.1;User ID='" + .username + "';Data Source='" + .database1 + "';password='" + .password + "';Persist Security Info=true"
        mStrProvider = "Provider=MSDAORA.1;"
      Case "sqlserver"
        pStr = "Provider=SQLOLEDB.1;User ID='" + .username + "';Data Source='" + .datasource1 + "';password='" + .password + "';Initial Catalog='" + .database1 + "';Persist Security Info=true"
        mStrProvider = "Provider=SQLOLEDB.1;"
      Case "db2"
        pStr = "Provider=IBMDADB2.1;User ID='" + .username + "';Data Source='" + .database1 + "';password='" + .password + "';Persist Security Info=true"
        mStrProvider = "Provider=IBMDADB2.1;"
      Case "odbc"
        pStr = "Provider=MSDASQL.1;User ID='" + .username + "';Data Source='" + .database1 + "';password='" + .password + "';Persist Security Info=true"
        mStrProvider = "Provider=MSDASQL.1;"
    End Select
  End With

Answer 1

to  small_pig(小猪) 接下来怎么写？

Answer 2

我知道在sql server中要使用系统存储过程sp_columns（不知道拼的对不对）
你看一看sql server存储过程的帮助就可以了
在其他数据库中我想也要使用存储过程了
你可以建立一个和sql server的连接cn
在这个连接的基础上建立一个记录集rs
rs.open sp_columns 参数,cn
记录集rs返回的就是你要的表的信息
最好自己试一试

Answer 3

一个大概的例子Dim madoConn        As ADODB.Connection
Dim madoxCatalog    As ADOX.Catalog
Dim madoxTable      As ADOX.TablePrivate Sub Form_Load()    Set madoConn = New ADODB.Connection
    With madoConn
        .ConnectionString= _
            "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Persist Security" & _
            "Info=False;" & _
            "Data Source=" & _
                "D:\Program Files\Microsoft Visual Studio\" & _
                "VB98\NWIND.MDB"
        .Open
    End With
    
    Set madoxCatalog = New ADOX.Catalog
    With madoxCatalog
        Set .ActiveConnection = madoConn
        For Each madoxTable In .Tables
            List1.AddItem madoxTable.Name
        Next
    End With
    
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set madoxTable = Nothing
    Set madoxCatalog = Nothing
    Set madoConn = Nothing
End Sub