| |
データーソースの設定をVBA上で行い、DAO で Oracle に接続（参照）する方法を教えてください。
今、以下のようなコードを作成しましたが「ODBC呼び出しが失敗しました」というメッセージが出ます。
Private Sub DAO_START_Click()
Dim objDB As DAO.Database
Dim objRec As DAO.Recordset
Dim strSQL As String
Set objDB = OpenDatabase("", False, False, "ODBC;Driver={Microsoft ODBC for Oracle};DATABASE=***;UID=***;PWD=***")
strSQL = "select ID,NAME,BIRTH from DATA"
Set objRec = objDB.OpenRecordset(strSQL, dbOpenDynaset)
Do Until objRec.EOF
Debug.Print objRec!ID, objRec!NAME, objRec!BIRTH
objRec.MoveNext
Loop
objDB.Close
Set objDB = Nothing
Set objRec = Nothing
End Sub
よろしく御願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
