Dim Catalog As ADOX.Catalog
Catalog = New ADOX.Catalog
Catalog.ActiveConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & MDBNAME & ";")
ADOXを使ってカタログを開こうとすると
引数が間違った型、許容範囲外、または競合しています。
で、色々調べたら
Catalog.let_ActiveConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & MDBNAME & ";")
「let_ActiveConnection」メソッドを使えとのこと
テーブル名の取得
Dim Catalog As ADOX.Catalog
Dim tbDef As ADOX.Table
Catalog = New ADOX.Catalog
Catalog.let_ActiveConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & MDBNAME & ";")
For Each tbDef In Catalog.Tables
If tbDef.Type = "TABLE" Then
Debug.WriteLine(tbDef.Name)
End If
Next