|
▼こうちゃん さん:
こんにちわ。ご返答ありがとうございます。
>この「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
こんな感じのコードを記述しています。
なんだかうまく説明出来なくてごめんなさい。。。
|
|