vb adodc删除多条数据：对象关闭时，不允许操作

Question

 nian = Trim(Combo1.Text)
   On Error Resume Next
    sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'"
    Adodc3.RecordSource = sq
    Adodc3.Refresh
    Adodc3.CommandType = adCmdText
    Adodc3.Refresh出错，提示“对象关闭时，不允许操作”，但实际上已经删除了。如何解决？

Answer 1

'Adodc3是什麼對像?AdoDC控件嗎?
nian = Trim(Combo1.Text) 
  On Error Resume Next 
    sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'" 
    Adodc3.RecordSource = sq '這裡寫錯了
    Adodc3.Refresh 
    Adodc3.CommandType = adCmdText 
    Adodc3.Refresh 

Answer 2

  On Error Resume Next 
    sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'" 
    Adodc3.RecordSource = sq 
    Adodc3.Refresh 
    Adodc3.CommandType = adCmdText 
    Adodc3.Refresh 将中间的哪个  Adodc3.Refresh  去掉试试

Answer 3

Adodc3.Excute sq
sq语句是删除记录,得不到返回的记录集合

Answer 4

sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'" 
你的语句写错了
日期不能这样写的

Answer 5

sq = "delete from dzdb where 进厂日期时间 like '" & nian & "%'" 

Answer 6

   sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'" 这个里面的delete语句执行完成以后sq会自动关闭再执行下面的Adodc3.RecordSource = sq 时sq已经是关闭的了。所以会报错 

Answer 7

nian = Trim(Combo1.Text) 
  On Error Resume Next 
    sq = "delete * from dzdb where 进厂日期时间 like '" & nian & "%'" 
    Adodc3.RecordSource = sq 
    Adodc3.Refresh  去掉 
    Adodc3.CommandType = adCmdText 
    Adodc3.Refresh