Access VBA質問箱 IV

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

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


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

9770 / 9994

←次へ　｜　前へ→


	【3360】Re:パススルークエリ

こもれび - 04/8/28(土) 23:02 -


	引用なし

	パスワード

こもれびです

どうもクエリーが二重になっているような気がします。
これをお試しください。

　　Dim ws As DAO.Workspace
　　Dim db As DAO.Database
　　Dim rs As DAO.Recordset

　　Set ws = DBEngine.Workspaces(0)

　　Set db = ws.OpenDatabase("ORACLE", False, False, _
　　　　　 "ODBC;Driver={Oracle in OraHome92};" & _
　　　　　 "SERVER=(server);DATABASE=ORACLE;" & _
　　　　　 "UID=aaa;PWD=aaa;DSN=aaa")

　　Set rs = db.OpenRecordset("select * from a_tbl;", _
　　　　　 dbOpenDynaset, dbSeeChanges)

　　Set Me.RecordSource = rs

1,118 hits

▼

【3351】パススルークエリ ミホ 04/8/28(土) 14:49