奇怪,你的语句怎么乱七八糟的,就是一个删除就这样啊;呵呵,对不起;真的这么感觉的;
用Ado的话
一般Conn.Execute "Delete From Table Where 条件"就可以了,基本上不会出错,喜欢的话就加上BeginTrans
或者Dao也可以拉
Data1.Recordset.Delete
就行了,不就是删除一个记录么?不用移动啦;关闭连接退出就可以拉;但是注意数据库要有主键,否则Ado经常出错的;
Data1.Recordset.MoveNext
If Data1.Recordset.RecordCount > 0 Then
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End If
这段是做什么的,呵呵,你自己说清楚一下;就是为了移动一下?似乎没有什么用啊;