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