还"求"

Question

用 ADOX (Microsoft® ActiveX® Data Objects Extensions for Data Definition Language and Security) 吧。ADOX 是对 ADO 的一个扩展，动态连接库为 MSADOX.DLL；随 MSDAC (Microsoft Data Access Components) 安装；最新的版本可到http://www.microsoft.com/data 取下载；VB 安装后，默认情况下 MDAC_TYP.EXE 拷贝到 X:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist 目录下。关于 ADOX 的参考资料，请看 msdn ADO Reference。下面的例子用 VB 6 运行通过，改为 VC 代码很简单：Private Sub Command1_Click()
    Dim cat As New adox.Catalog
    Dim tbl As adox.Table
    
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\my documents\database\access\robottalk.mdb"
    For Each tbl In cat.Tables
        Debug.Print tbl.Name
    Next
    Set cat.ActiveConnection = Nothing
    Set cat = Nothing
End Sub