EXCEL VAB向access 数据库读取、写入数据时无法跳出循环

rio123 · 发表于 2020-2-13 13:29

如下一段代码，无法跳出DO LOOP 循环！求哪位老师帮我看下！

      Set rs = New ADODB.Recordset
      rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
      Do Until rs.EOF
      rs.Delete
      rs.Update
      rs.MoveNext
      Loop
      rs.Close

rio123 · 发表于 2020-2-14 08:17

以前用win7的时候正常，但是用win10 1903的时候不正常，恳请哪位老师帮忙解决下！

ABC5258 · 发表于 2020-2-14 18:12

没必要使用Recordset，一句代码搞定
cnn.Execute "delete * from 表 where 条件

rio123 · 发表于 2020-2-19 10:18

本帖最后由 rio123 于 2020-2-19 11:36 编辑

ABC5258 发表于 2020-2-14 18:12
没必要使用Recordset，一句代码搞定
cnn.Execute "delete * from 表 where 条件

感谢您的帮忙，但是加了这段语句后， cnn.Execute "delete from 表 where 日期 = #" & Cells(4, 3) & "#"
还是无法删除，请帮看下

		自动登录	找回密码
密码			免费注册

[求助] EXCEL VAB向access 数据库读取、写入数据时无法跳出循环