Excel VBA質問箱 IV

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

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


954 / 13644 ツリー ←次へ | 前へ→

【77297】Oracleデータを配列化(oo4o) げんき 15/7/3(金) 17:26 質問[未読]
【77298】Re:Oracleデータを配列化(oo4o) ichinose 15/7/3(金) 18:16 発言[未読]

【77297】Oracleデータを配列化(oo4o)
質問  げんき  - 15/7/3(金) 17:26 -

引用なし
パスワード
   If ExcelDb(1,1) = OracleDb(1,1) then的に比較してマージしたい。


Private Sub Main()

Dim OraSession As Object
Dim db As Object
Dim rs As Object
Dim fld As Object
Dim recCount, i As Integer
Dim ExcelDb, OracleDb As Object

Dim strSQL
  
  strSQL = "SELECT * FROM TableName" 'SQL文
  
  Set OraSession = CreateObject("OracleInProcServer.XOraSession")   'oo4oオブジェクト生成
  Set db = OraSession.OpenDatabase("DNS", "UID/PWD", ORADB_DEFAULT) 'DB接続
  Set rs = db.CreateDynaset(strSQL, ORADYN_READONLY) 'SQL文実行
  Set fld = rs.Fields
  recCount = rs.RecordCount
  fldcount = fld.Count
  
  MsgBox recCount & "件のレコードを抽出しました"
  
  'レコード数分ループ
  While Not rs.EOF
    Debug.Print fld(2), fld(3)
    rs.MoveNext
    DoEvents
  Wend

'オブジェクト開放
Set fld = Nothing
Set rs = Nothing
Set db = Nothing
Set OraSession = Nothing

End Sub

どうやったら配列化できるでしょうか。
そもそも配列化しないといけないわけじゃなくて、
その方法しか思いついていないだけです。
良い方法があれば教えてください。

【77298】Re:Oracleデータを配列化(oo4o)
発言  ichinose  - 15/7/3(金) 18:16 -

引用なし
パスワード
   >どうやったら配列化できるでしょうか。
>そもそも配列化しないといけないわけじゃなくて、
0040は、私は使いませんが、結構ADOが似たような機能を有していますよね!!

ADOでは、 GetRowsメソッドで配列が取得できます。

0040でもあるみたいですよ!!

docs.oracle.com/cd/E11882_01/win.112/e17727/sermthod100.htm#OOFOL563

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