s1 = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\material.mdb"
   Adodc_material.ConnectionString = s1
   Adodc_ = adCmdUnknown
   sqlstr = "delete from 灵敏度表 where 温度 between " & T0 & " and " & T1 & ""
   Adodc_material.RecordSource = sqlstr

   
   Adodc_material.Refresh  为什么再次回弹出对象关闭时不允许操作

你的连接串有问题，自己去找！

sqlstr = "delete from 灵敏度表 where 温度 between " & T0 & " and " & T1 & ""
   Adodc_material.RecordSource = sqlstr
没见过这种写法，应该Adodc_material.execute("delete from 灵敏度表 where 温度 between " & T0 & " and " & T1 &")
或者 select * from 灵敏度表 where 温度 between " & T0 & " and " & T1 & ""
Adodc_material.refresh
if Adodc_material.recordset.recordercount >0 then
Adodc_material.recordset.delete
Adodc_material.recordset.update
end if


[ 本帖最后由 zyjhb 于 2013-5-24 16:08 编辑 ]