Private Sub cmdDelete_Click() Dim rsTemp As ADODB.Recordset Set rsTemp = New ADODB.Recordset rsTemp.ActiveConnection = cn1 rsTemp.Source = "select " & strid & " from 表1" 'strid已经赋值了的字符串 rsTemp.Open , , 1, 3 rsTemp.Delete rsTemp.Close或者: Private Sub cmdDelete_Click() Dim rsTemp As ADODB.Recordset Set rsTemp = New ADODB.Recordset rsTemp.ActiveConnection = cn1 rsTemp.Source = "select " & strid & " from 表1" 'strid已经赋值了的字符串 Dim conn As connection Set rsTemp = New connection conn.open strconn conn.execute "delete from table1 where tiaojian" 'strid已经赋值了的
如果cn1已经设置好,则: 增加记录:cn1.exec " insert into tablename (...) values(...)" 删除记录:cn1.exec " delete from tablename where ..." 修改记录:cn1.execu " update tablename set 字段=... where ..."
我没有试过rsTemp.Delete的用法,如果只是要删除表1记录的话,一般这样:
rsTemp.ActiveConnection = cn1
rsTemp.Source = "delete * from 表1 where 条件"
rsTemp.Open
即可,
我不太明白搂主的strid是什么,不可能只删除一行纪录的某几个字段吧
我这句话的意思是找到id是strid的这条纪录,也就成为当前纪录,然后用rsTemp.delete删除.不过 ymli(阿立) 你说的有道理,我好像sql语句是写的不对,谢谢你.
如果用ADO的话我个人的习惯做法是把那些操作都放到Connect.Execute中
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
rsTemp.ActiveConnection = cn1
rsTemp.Source = "select " & strid & " from 表1" 'strid已经赋值了的字符串
rsTemp.Open , , 1, 3
rsTemp.Delete
rsTemp.Close或者:
Private Sub cmdDelete_Click()
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
rsTemp.ActiveConnection = cn1
rsTemp.Source = "select " & strid & " from 表1" 'strid已经赋值了的字符串
Dim conn As connection
Set rsTemp = New connection
conn.open strconn
conn.execute "delete from table1 where tiaojian" 'strid已经赋值了的
以上情况都可能出现你说的情况。
增加记录:cn1.exec " insert into tablename (...) values(...)"
删除记录:cn1.exec " delete from tablename where ..."
修改记录:cn1.execu " update tablename set 字段=... where ..."