有关ADO和SQL删除操作的问题

Question

再试试
Dim cmd As New ADODB.Command
Dim rds As New ADODB.Recordset
on error goto Err
box = MsgBox("确定要全部删除数据库中的记录吗？", vbYesNo + vbExclamation, "提示")
If box = vbYes Then
  cmd.CommandText = "delete from 分区管理"
  cmd.Execute
  rds.Close
   
  rds.Open "select * from 分区管理 ", dbs, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = rdsexit sub
Err:
       msgbox err.description

Answer 1

call rds.Open("select * from 分区管理 ", dbs, adOpenStatic, adLockOptimistic)就好了。……

Answer 2

rsd和你上面定义的rds不相符。

Answer 3

你定义的Recordset到底是 "rds" 还是 "rsd" ,
你的代码中怎么一个是"rds" 一个是 "rsd",是不是打错了.

Answer 4

rsd未定义
if rds.state=adstateopen then
  rds.close
end if