3

以下のコードを実行すると、「ユーザー定義型が定義されていません」というエラーが表示されます。

「ADODB.Connection としての objCon」

最初の行で強調表示されます。VBA コードを介して Excel から Access への接続を設定しようとしています。アドバイスありがとうございます！

Private objCon As ADODB.Connection
Private rstRec As ADODB.Recordset
Private strQry

Sub Connect()
   Dim strConn As String


   Set objCon = New ADODB.Connection
   objCon.Mode = adModeReadWrite

      If objCon.State = adStateClosed Then
         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\DB\Db.accdb;Persist Security Info=False;"
         objCon.ConnectionString = strConn
         objCon.Open
      End If
End Sub
4

1 に答える 1

6

次のいずれかを実行できます。

set objCon  = CreateObject("ADODB.Connection")
set rstRec = CreateObject("ADODB.Recordset")

または、VBA エディタの [ツール] --> [参照] --> [追加] でMicrosoft ActiveX Data Object X.Y Library

于 2012-12-17T08:36:42.433 に答える