« 武富士会長タイーホで株価大幅下落 | Main | コンソールをインストール »

2003.12.03

Excel(VBA/ADO)でOracle検索

Excel(VBA/ADO)でOracleのデータを検索して表示したい、とかいう依頼が来たので、ちょいちょいと作ってみた。結構忘れてることが多かったので、メモを残す。
基本的には接続→SQL実行→フェッチ→クローズ。サンプルはユーザーが使えるテーブルの一覧をイミディエイトウィンドウへ表示するだけだが、基本はこれでOK。と思いたい。なお、イタリック部分は環境により変更しなくてはならないところ。

1.接続
  ' 接続先情報
  Const strDatabase = "sid" 'sid
  Const strUserID = "user" ' user
  Const strPassword = "pass" ' pass
  '接続オブジェクトの作成
  Set cn = CreateObject("ADODB.Connection")
  '接続
  cn.Open "Provider=MSDAORA;" & "Data Source=" & strDatabase & ";", strUserID, strPassword

2.SQL実行
  ' SQL
  strSQL = "select table_name from user_tables"
  ' SQLの実行
  Set rs = cn.Execute(strSQL)

3.フェッチ  Do Until rs.EOF
  Debug.Print rs.fields(0)
    rs.MoveNext
  Loop

4.クローズ
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing

|

« 武富士会長タイーホで株価大幅下落 | Main | コンソールをインストール »

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/1594/3454

Listed below are links to weblogs that reference Excel(VBA/ADO)でOracle検索:

« 武富士会長タイーホで株価大幅下落 | Main | コンソールをインストール »