VBでAccess DBにinset処理をかける

質問

Dim cn As ADODB.Connection
'接続
(1)Set cn = CurrentProject.Connection
'実行
cn.Execute strSqlm←SQLがはいっています。
'終了
cn.Close: Set cn = Nothing

(1)でオブジェクトが必要です。というエラーがでます。
解決策をお願いします。

回答No.1

venzou

＞VBでAccess DBにinset処理をかける

このVBとは、AccessのVBAでは無い、VisualBasicの事ですよね？
CurrentProjectはAccessVBAでは使えますが、VBでは使えないと思います。

VBでADOを使う場合は、以下のようになると思います。

'データベースのファイル名
Const MdbName = "c:\temp\db1.mdb"

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
'↑ New が必要。又は、下記の様にCreateObjectを使う
'Set cn = CreateObject("ADODB.Connection")

'データベースに接続します。決まり文句です。
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbName & ";"

cn.Execute strSqlm←SQLがはいっています。
'終了
cn.Close: Set cn = Nothing