Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4790 / 9994

←次へ　｜　前へ→


	【8444】ORACLE への　DAO接続

CAVE1 - 06/8/9(水) 14:10 -


	引用なし

	パスワード

データーソースの設定を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

よろしく御願いいたします。

1,695 hits

▼

【8444】ORACLE への　DAO接続 CAVE1 06/8/9(水) 14:10

≪