怎么用adodc控件的delete方法

Question

Adodc3.Recordset.Filter = "报警信息='送钻变频器故障'"
Adodc3.Recordset.Delete  
Adodc3.Recordset.Update
这样不可以吗？？？

Answer 1

你的意图是删除所有符合条件的记录？
如果用Adodc：
Adodc3.Recordset.Filter = "报警信息='送钻变频器故障'"
do until Adodc3.Recordset.eof
Adodc3.Recordset.Delete  
Adodc3.Recordset.Update
Adodc3.Recordset.movenext
loop建议用connection对象：
cnn.execute "delete from yourtable where 报警信息='送钻变频器故障'"

Answer 2

Adodc3.Recordset.Filter = "报警信息='送钻变频器故障'"
do until Adodc3.Recordset.eof
Adodc3.Recordset.Delete  
Adodc3.Recordset.Update
Adodc3.Recordset.movenext
loop
这样的话，全部记录都被删除了，我只想删除符合条件的，这样不行，还有别的办法吗？？？？

Answer 3

Dim cnn1 As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql1 As String
If S7vbBttn5.Value = False Then
Adodc2.Recordset.AddNew
Adodc2.Recordset("报警时间").Value = Date & Time
Adodc2.Recordset("报警信息").Value = "送钻变频器故障"
Adodc2.Recordset.Update
Adodc3.Recordset.AddNew
Adodc3.Recordset("报警时间").Value = Date & Time
Adodc3.Recordset("报警信息").Value = "送钻变频器故障"
Adodc3.Recordset.Update
ElseIf S7vbBttn5.Value = True ThenAdodc2.Recordset.AddNew
Adodc2.Recordset("报警时间").Value = Date & Time
Adodc2.Recordset("报警信息").Value = "送钻变频器故障消失"
Adodc2.Recordset.Update
Set cnn1 = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn1.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
                   "Dbq=e:\cmzdb\database.mdb;" & _
                   "Uid=;" & _
                   "Pwd=;"
cnn1.CursorLocation = adUseClient
cnn1.Open          cnn1.Execute "delete from 报警显示表 where 报警信息='送钻变频器故障'"
            rs.Open "select * from 报警显示表", cnn1
            Set DataGrid3.DataSource = rs
            rs.MoveLast
            
           
            Exit Sub
ElseEnd If
我的完整的程序如上，但adodc3的addnew动作很慢，不知为什么？？？？