- PR -

VB2005でアクセスデータベースへリンクテーブルの動的作成方法について

参照元記事 | 同じ記事を参照しているスレッド一覧
1
投稿者投稿内容
フィーバー
常連さん
会議室デビュー日: 2006/08/30
投稿数: 22
投稿日時: 2008-07-26 15:59
件名の通り、VB2005でアクセスのリンクテーブルを動的に作成したいと思っております。


データベース
New.mdb
Old.mdb
があり
Old.mdbにはTpassというテーブルがあります。
Old.mdbからNew.mdbにTpassのリンクテーブルを作成したいです。

調べたところ
http://msdn.microsoft.com/ja-jp/library/cc326073.aspx
を参考にして以下のコードを実行しましたら、
インストール可能な ISAM ドライバが見つかりませんでした。
と表示されてしまいます。

どこに原因があるんでしょうか？
よろしくお願いいたします。

参照設定にADOX（Microsoft ADO Ext. 2.8 for DDL and Security）を追加してあります。

Dim catDB As ADOX.Catalog = New ADOX.Catalog
'catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\デスクトップ\New.mdb"これだとエラーになるので修正
catDB.let_ActiveConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\デスクトップ\New.mdb")

Dim tblLink As ADOX.Table = New ADOX.Table
With tblLink
.Name = "Tpass"
.ParentCatalog = catDB
.Properties("Jet OLEDB:Create Link").Value = True
.Properties("Jet OLEDB:Link Provider String").Value = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Owner\デスクトップ\Old.mdb:"
.Properties("Jet OLEDB:Remote Table Name").Value = "Tpass"
End With

catDB.Tables.Append(tblLink)
catDB = Nothing
フィーバー
常連さん
会議室デビュー日: 2006/08/30
投稿数: 22
投稿日時: 2008-07-27 14:28
自己解決できました。

ありがとうございます。
1

スキルアップ／キャリアアップ（JOB@IT）