Excel VBA質問箱 IV

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

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


75135 / 76732 ←次へ | 前へ→

【6043】ご返答ありがとございます。
質問  オラクルボーイ  - 03/6/13(金) 15:26 -

引用なし
パスワード
   ▼こうちゃん さん:

こんにちわ。ご返答ありがとうございます。

>この「1件しか取得出来ないSQLのSELECT文」のVBAをアップしてみてくださいな。
>DBからのデータ取得方法は複数ありますので、オラクルボーイさんが取られている方法
>の応用のほうがわかりやすいと思いますし、ODBCなのかSQL*Net使ってるのか、ADOなの>かoo4oなのかとか、条件もわからないとレスがつけづらいですね。

という事でしたが、実は私も相当の初心者でして、、、オラクルとエクセルの接続環境も
イマイチわからない状態でして。。。今はこの辺の事を勉強中の身分でして、
上記の条件の返答もうまく出来ないのですが、、、もっと勉強します。すいません。
ちなみに以下のロジックだと1件のある項目は取得出来ます(当たり前ですが、、、)

Function M_Test()
  Dim GOraSession   As Object
  Dim GOraDatabase  As Object
  Dim GOraFields   As Object
  Dim StrSQL     As String
  Dim aaa       As String

'データベースとの接続
Set GOraSession = CreateObject("OracleInProcserver.XOrasession")
Set GOraDatabase = GOraSession.DbOpenDatabase("aaa.world", "aaa/bbb", 0&)

StrSQL = "select * from test_tbl"
    
'SQL実行
Set GOraDyna = GOraDatabase.dbcreatedynaset(StrSQL, 0&)
Set GOraFields = GOraDyna.Fields

aaa = GOraFields("test_data1").Value

Range("A1").Select
ActiveCell.FormulaR1C1 = aaa

Set GOraSession = Nothing
Set GOraDatabase = Nothing
   
End Function

こんな感じのコードを記述しています。
なんだかうまく説明出来なくてごめんなさい。。。

1 hits

【6040】オラクルのテーブルをエクセルにコピーしたいのですが。。。 オラクルボーイ 03/6/13(金) 14:23 質問
【6042】条件を明確にしましょ!! こうちゃん 03/6/13(金) 14:57 発言
【6043】ご返答ありがとございます。 オラクルボーイ 03/6/13(金) 15:26 質問
【6046】Re:ご返答ありがとございます。 こうちゃん 03/6/13(金) 16:50 発言
【6062】これでフォローになりますか? 孫悟空 03/6/14(土) 22:06 回答
【6109】ありがとうございました! オラクルボーイ 03/6/16(月) 19:48 お礼

75135 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free