Microsoft Access 掲示板

Microsoft Access 掲示板

Excelから、ACCESSの更新クエリを実行したい / 1
1
hatena 2021/07/10 (土) 17:18:21

無限ループですね。

Accessのテーブルを更新する場合、レコードセットを利用する方法と、更新クエリを利用する方法があります。

rsという変数がレコードセットの意味だとしたら、上記の異なる方法の解説サイトを理解せずに適当にくっつけた感じのコードですね。

とりあえず下記でどうでしょうか。

     Dim i As Long
     i = 2

     Do Until Cells(i, 1) = ""
         ’下のSQLがおかしかったので修正
         strSQL = "UPDATE MT_社員 SET 身長=" & Cells(i, 3) & " WHERE ID=" & Cells(i, 1).Value
         adoCn.Execute strSQL 'SQLを実行 1行ずつ実行する必要あり
         i = i + 1 '次の行に進める これがないと無限ループ
    Loop

    adoCn.Close
    Set adoCn = Nothing

End Sub
通報 ...