一个修改的问题~~~~~~

Question

一个修改部分，先把原来的删除，在添加新的，下面的语句中，为什么删除不了，又添加了新的，为什么不执行删除语句？如果不后面的添加语句去掉，就能删除了，，，
private sub commandModify_click()
 dim txtSQL,Msgtxt as string
 dim mrc as adodb.recordset
 txtSQL="delete from peopleInfo where peoplename='&"trim(text1.text)&"'"
 set mrc=ExecuteSQL(txtSQL,Msgtxt )
  …………………………
  …………………………
  （一些添加语句）
  ………………………… mrc.update
 mrc.close  ……………………
end sub

Answer 1

可能与你的游标有关系。用连接删除。
cnn.execute txtSQL

Answer 2

txtSQL="delete from peopleInfo where peoplename='&"trim(text1.text)&"'"
 set mrc=ExecuteSQL(txtSQL,Msgtxt )
这两句改为：
   cnn.execute "delete from peopleInfo where peoplename='&"trim(text1.text)&"'"
试试

Answer 3

delete语句本身是不返回记录集的；
txtSQL="delete from peopleInfo where peoplename='&"trim(text1.text)&"'"
应改为:
txtSQL="delete from peopleInfo where peoplename='" & trim(text1.text) & "'"
；
你可以试试用UPDATE，没有必要先删除再增加。不过用UPDATE最好是用COMMAND对象来执行。

Answer 4

private sub commandModify_click()
 dim txtSQL,Msgtxt as string
 dim mrc as adodb.recordset
 txtSQL="select * from peopleInfo where peoplename='&"trim(text1.text)&"'"
 set mrc=ExecuteSQL(txtSQL,Msgtxt )
  …………………………
  …………………………
 mrc.delete
 mrc.addnew
  （一些添加语句）
  …………………………
 mrc.update
 mrc.close  ……………………
end sub