注册 登录
编程论坛 VB6论坛

求助各位大侠,adodc控件的问题

木吉他ll 发布于 2013-05-22 19:20, 478 次点击
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  为什么再次回弹出对象关闭时不允许操作
2 回复
#2
何时是月明2013-05-22 20:17
你的连接串有问题,自己去找!
#3
zyjhb2013-05-24 16:01
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 编辑 ]
1