VB数据库删除 *** 作

Text1.Text = Text1.Text &rs!数据B &vbCrLf

rs.Delete ‘如果相同删除数据B中的数据

rs.update

rs.MoveNext

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

如果有多条张三的记录，只能删除第一条记录。

如果想删除查询到的多条记录，请做一个循环。

---