こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

EXCELからORACLEのテーブルをselectしたいのですが、うま

EXCELからORACLEのテーブルをselectしたいのですが、うまくいきません。
ご指導のほどお願いいたします。
下記サンプルをネット('Access VBA Tips)で探し実行しました。
Access版だからいけないのでしょうか?
adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
のオープン・クローズは正常終了します。
Set adoCON = Application.CurrentProject.Connection
が実行できません。

実行時エラー 438
オブジェクトはこのプロパティまたはメソッドをサポートしていません。

が出てしまいます。

Excelではだめなのでしょうか?
教えてください。
よろしくお願いいたします。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー---------------
Sub prcAdoOracleODBC()
'Access VBA Tips
'4.3 ORACLEのDBを開く・閉じる/ODBCを使う
Dim adoCON As New ADODB.Connection
Dim adoRS As ADODB.Recordset
'?ADOを使いADRSODBCというデータソースをオープンします
adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
'データベースのオープン(データベースオブジェクトの作成)
Set adoCON = Application.CurrentProject.Connection
'レコードセットの作成(SELECT文の実行)
Set adoRS = adoCON.Execute("select * from casUR")
'レコードセットのクローズ
adoRS.Close
'データベースのクローズ
adoCON.Close
'オブジェクト変数のクリア
Set adoRS = Nothing
Set adoCON = Nothing
End Sub

投稿日時 - 2010-01-08 13:15:47

QNo.5577063

困ってます

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

#ORACLEの環境がないので取り敢えず繋ぎのレスで。

http://www.happy2-island.com/access/gogo03/capter00403.shtml

http://www.happy2-island.com/access/gogo03/capter00303.shtml
を組み合わせちゃったわけですね。
Access VBA Tipsですから
>Set adoCON = Application.CurrentProject.Connection
ここのApplicationとはAccessの事を指します。
ExcelにはCurrentProjectオブジェクトはありませんからエラーです。

adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
ここでデータベースをオープンしてますから
>'データベースのオープン(データベースオブジェクトの作成)
>Set adoCON = Application.CurrentProject.Connection
不要です。

また、検索すればExcelでのサンプルもあるわけですからそちらを参照したほうが良いかも。
http://www.atmarkit.co.jp/fdb/rensai/excel2oracle02/excel2oracle02_1.html
http://milky.way-nifty.com/nuzou/2003/12/excelvbaadoorac.html
http://www.kihara.net/tips/vba/excel/ora_xls.html

投稿日時 - 2010-01-08 21:26:10

あなたにオススメの質問