Question

关于vb中删除数据库记录的语句

Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"
rsd.Open Sql, conn, adOpenStatic, adLockOptimistic
YN = MsgBox("确定删除", vbYesNo)
If YN = 6 Then
rsd.Delete
End If
rsd.Update
rsd.Close
conn.Close
这么写对吗 请问哪里有问题

Answer 1

Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"
rsd.Open Sql, conn, adOpenStatic, adLockOptimistic
YN = MsgBox("确定删除", vbYesNo)
If YN = 6 Then
rsd.Delete
End If
rsd.Close
conn.Close
如果有多条张三的记录，只能删除第一条记录。
如果想删除查询到的多条记录，请做一个循环。

追问

提示错误说 from子句语法错误 该怎么改啊 麻烦你啦

追答

班级信息 where两则之间加个空格

另外，如果没有查到记录也会出错，所以也要处理一下：
If rsd.RecordCount > 0 Then
YN = MsgBox("确定删除", vbYesNo)
If YN = 6 Then
rsd.Delete
End If
rsd.Close
conn.Close
Else
MsgBox "没有找到记录"
End If

VB6专家百度Hi群1358368

追问

还得麻烦你一下 总提示说 对象关闭 时， 不允许操作 但是我 连接 什么的都打开了啊
Dim rsd As New ADODB.Recordset
Dim conn As ADODB.Connection
Dim Sql As String
Set conn = New ADODB.Connection
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\VB\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=True"
conn.Open conn

追答

百度HI说吧。

Answer 2

数据库的删除是不需要update的,你把rsd.Update删除并试著再增加一句rsd.refresh刷新数据库试试看

Answer 3

If YN = 6 Then
rsd.Delete # 从vb控件中删除了数据，但没有在数据库上进行数据操作
End If