VBA 簡易に繰り返し処理が書きたい。

Question

DBに接続して、ExcelにDBの情報をExcelに全件表示させて、Excelから一部書き換えて書き換えた所のみ、DBに書き込みしたいのですが、いちよプログラムは動くのですが、ループ(繰り返し)処理が更新するたび動くようにコードを書いてしまって、一回で書くことができません。色々考えたのですが進めないのでご質問させて頂きました。お手数をおかけしますが、アドバイスよろしくお願い致します。

'接続文字列
Const CONNECTION = "DRIVER={Microsoft ODBC for Oracle};CONNECTSTRING=XE;UID=system;PWD=systemsss;"

'指定した場所のみ更新
Sub Button3_Click()
 
    Dim oraCon As New ADODB.CONNECTION
    Dim oraCmd As New ADODB.Command
    Dim strSQL As String
    Dim i As Integer
    Dim j As Integer
    Dim oraRs As New ADODB.Recordset
    Dim n As Integer
    
    oraCon.ConnectionString = CONNECTION
    oraCon.Open
   
    'SQLを作成
    strSQL = "SELECT * FROM 社員テーブル1 ORDER BY 社員NO ASC"
    
    'レコードセットにSQL実行し結果をセット
    oraRs.CursorLocation = adUseClient
    oraRs.CursorType = adOpenDynamic
    oraRs.Open strSQL, oraCon
    
    ReDim arrRcd(oraRs.Fields.Count, oraRs.RecordCount)
    arrRcd = oraRs.GetRows
   
   
   
  	'最終行までの処理
      n = Cells(Rows.Count, "A").End(xlUp).row


For j = 1 To n
  For i = 1 To 3
                 
 	 If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then
  
   strSQL = "update 社員テーブル1 set  " _
            + " 名前 ='" + Cells(j, 2).Value + "'" _
            + ",住所 ='" + Cells(j, 3).Value + "'" _
            + ",電話 ='" + Cells(j, 4).Value + "'" _
            + " where 社員NO = '" + CStr(j) + "'"
             
   With oraCmd
        .ActiveConnection = oraCon
        .CommandText = strSQL
        .Execute
   End With
   
 	 End If
 
   Next i
 Next j
                
    Set oraCmd = Nothing
    oraCon.Close
    Set oraCon = Nothing
    
End Sub

Comments

[hatena19]

コードはマークダウン書式のコードブロック内に記述してください。そうするとコードが読みやすくなり回答が付きやすいです。
下記のような記述になります。

```vba
ここにコードを記述
```

あるいは、コード部分を選択して、ツールバーの<code>ボタンをクリックしてもOKです。

[fffu8]

ご丁寧にありがとうございます。解答がついたら幸いです。

[hatena19]

編集していただいたようですが、まだ、マークダウン書式が適用されてません。
他の質問スレッドのコード部分をみてください。読みやすく色付けされています。
そうなるようにプレビューを見ながらトライしてみてください。

[hatena19]

うまくできたようですね。ありがとうございました。

[fffu8]

ありがとうございます。

Answer 1

１件ずつ更新クエリを実行するより、
レコードセットを開いているのなら、レコードセットで直接更新したほうがはやいと思います。

エクセルの方は、セル範囲を配列に格納してそれとレコードセットのレコードと比較するようにすると高速化できます。

下記のコードはイメージですのて実際には動作しませんが、ロジックを参考にコードを修正してみください。

Dim aty() As Variant
ary = Range(データ開始セル,データ終了セル).Value

i=0
Do until oraRs.EOF '最終レコードまでループ
    If ary(i, 0).Value <> oraRs!名前.Value Or
       ary (i, 1).Value <> oraRs!住所.Value Or
       ary (i, 2).Value <> oraRs!電話.Value Then
       oraRs!名前.Value = ary(i, 0).Value
       oraRs!住所.Value = ary(i, 1).Value
       oraRs!電話.Value = ary(i, 2).Value
       oraRs.Update
   End If
   i = i+1
   oraRs.MoveNext
Loop

Comments

[fffu8]

解答ありがとうございます。
すみません、ロジックを参考にしたのですが、
作り方があまりまだ理解できません。
差し支えなけらば、実際に動くコードを作成して頂くことは可能でしょうか？

[hatena19]

それは無理です。オラクルの環境もありませんし、同じ環境を揃えられるわけでもないので。
ロジック的には難しいところはなくレコードセットの使い方の基本ですし、エクセルで配列を使った高速化も検索すれば解説ページはいろいろ見つかりますので、それを研究してできるところまで自分で作成してみてください。そのうえでできたコードを提示して、ここがうまくいかないとか、エラーがでるとか具体的に質問してください。

[fffu8]

ありがとうございます。
承知致しました。