rs.Open sql, con, adOpenStatic, adLockOptimistic, adCmdText 可以运行的,我都成功的删除数据了
只是下面那部分不行
能不能给我解释一下这几条语句,谢谢
Set cmd.ActiveConnection = con cmd.CommandText = sql cmd.Execute cnt
还有这条
Dim cmd As New ADODB.Command [/QUOTE]
Dim cmd As New ADODB.Command '声明一个类型为ADODB.Command 的对象并创建对象实例 Set cmd.ActiveConnection = con '设置cmd的活动连接为con对象(为ADODB.Connection类型) cmd.CommandText = sql '设置cmd的命令字符串 cmd.Execute cnt ' 执行命令