在VB中如何用SQL语句删除数据库中的记录？

[fwjyz]

①问题1
我用rs.delete删除当前记录，在datagrid中显示已经删除，但数据库中数据没有删除，错误在那里？
public CN As New ADODB.Connection
public Rs As New ADODB.Recordset
Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\jsc.mdb;Persist Security Info=False"
Private Sub Command1_Click()
CN.Open ConnectionString
Rs.CursorLocation = adUseClient
Rs.Open "select * from sheet", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
End Sub
Private Sub Command3_Click()
Rs.Delete
End Sub
②如何在VB中定义游标？以及利用游标取值？

[WorldBoy]

Private Sub Command3_Click()
　Rs.Delete
　Rs.MoveNext
　if Rs.eof and Rs.bof then exit sub
　if Rs.eof then Rs.MoveLase
End Sub

[WorldBoy]

不好意思其中写错了一个单词，应该是：
if Rs.eof then Rs.MoveLast

[fwjyz]

我用了up 的方法，还是不能删除。

[bigbigbigsoft]

用Command，使得command 字串为：
DELETE FROM SHEET WHERE RECORD_ID = "ASDFASDFASFASFASFASF"
然后execute command就可以了

[xkcm]

你在使用RS.Delete 后要使记录级移动才能修改成功，在RS.delete后加一句rs.movenext
关于你的第二个问题，在你定义RS时就定义了游标，当你OPEN时就打开了它。

[LCAAA]

删除后刷新一下就可以。

[cloudtarget]

Rs.Delete
　if Rs.eof and Rs.bof then exit sub
　if Rs.eof then Rs.MoveLase
　Rs.MoveNext

[msdn_vipuser]

rs.delete

[kennyn]

str="delete from [表名] where [字段名]='" &要删除的条件 &"'"
cnn.execute str

[myarts]

Rs.Open "select * from sheet", CN, adOpenDynamic, adLockBatchOptimistic
改成
rs.Open "select * from sheet", conn, adOpenStatic, adLockOptimistic

[hzybc]

Private Sub Command3_Click()
Rs.Delete
RS.Update
End Sub

[of123]

因为你设置记录集为批锁定，所以必须用 rs.UpdateBatch 来更新你所做的所有更改：

rs.Delete
......
rs.UpdateBatch

当然，你也可以取消上一次 UpdateBatch 之后的所有更改：

rs.CancelBatch

如果你希望每次添加、更改、删除后立即提交，就用 myarts(xiaobao)的方法。但是你同时也就放弃了取消的权利。

[taosihai1only]

Private Sub Command3_Click()
Rs.Delete
RS.Update
End Sub

[Ranma_True]

Rs.Delete后
RS.Update

[lirun]

dim SqlString as string
sqlString="delete * from sheet"
cnn.execute SqlString