vb如何删除数据库内容

来源：百度知道编辑：UC知道时间：2024/05/09 14:29:05

Dim rs As ADODB.Recordset
Dim rds As New ADODB.Recordset
Private Sub Command1_Click()
rds.Open Adodc1.RecordSource, Adodc1.ConnectionString, adOpenKeyset, adLockOptimistic
If MsgBox("确认还书" + Trim(Text2.Text) + "？", vbYesNo, "确认信息") = vbYes Then
SQl1 = "delete from neirong where booknum='" + Trim(Text4.Text) + "'"
rds.CursorLocation = adUseClient
rds.Open SQl1, conn, adOpenKeyset, adLockOptimistic

MsgBox "成功还书！", vbInformation + vbOKOnly, "提示信息"
'If rds.Fields("booknum") = Text4.Text Then
'rds.Delete
End If

rds.Update
Adodc1.Refresh
rds.Close
MsgBox "图书已归还", 0, "提示"
Me.Hide
mainwindow.Show

End Sub
我的代码在上边，在最上边那个删除数据部分，小弟实在不太明白，望高手指点，而用我注释的部分，只显示删除成功，却不删除数据表内容，我的数据库名字叫ts，数据表为neirong，谢谢各位大哥了

If MsgBox("确认还书" + Trim(Text2.Text) + "？", vbYesNo, "确认信息") = vbYes Then 错误！

应该是：
X=MsgBox("确认还书" + Trim(Text2.Text) + "？", vbYesNo, "确认信息")
if X=6 THEN
'要还书的动作
ELSEIF X=7 THEN
'取消还书的动作
END IF

vb如何删除数据库内容 VB如何筛选数据库内容 SQL如何删除数据库内容 VB如何对比筛选多个表中数据库内容在VB中如何导出数据库中的内容 VB问题，如何text控件显示数据库内容。 VB 里如何实现动态创建、删除ACCESS数据库 VB编程，SQL的数据库，如何实现，添加、修改、删除？如何使用Delete语句从VB数据库删除信息？ VB如何连接数据库？