UC知道VB 通过文本 删除SQL语句
来源：百度知道 编辑：UC知道 时间：2024/05/07 20:40:38
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "单据号不能为空！", vbOKOnly + vbInformation, "友情提示"
Text1.SetFocus
Exit Sub
End If
Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=biao"
Con.Open
Set Rs = Con.Execute("DELETE from MF_pos where 单据号 like '%" & Text1.Text & "%'")
If MsgBox("是否删除当前行？", vbYesNo, "确认") = vbYes Then
MsgBox "删除成功！"
End If
Text1.Text = ""
Con.Close
Adodc1.RecordSource = "select * from MF_pos"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
请问一下，如何添加，文本框中所输入条件，在数据库中找不到，提示无此数据，请问怎么添加 尽量详细！
我就是想加一条 判断假如我文本框输入的内容 数据库中找不到则提示 “请正确填写”
If Text1.Text = "" Then
MsgBox "单据号不能为空！", vbOKOnly + vbInformation, "友情提示"
Text1.SetFocus
Exit Sub
End If
Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=biao"
Con.Open
Set Rs = Con.Execute("DELETE from MF_pos where 单据号 like '%" & Text1.Text & "%'")
If MsgBox("是否删除当前行？", vbYesNo, "确认") = vbYes Then
MsgBox "删除成功！"
End If
Text1.Text = ""
Con.Close
Adodc1.RecordSource = "select * from MF_pos"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
请问一下，如何添加，文本框中所输入条件，在数据库中找不到，提示无此数据，请问怎么添加 尽量详细！
我就是想加一条 判断假如我文本框输入的内容 数据库中找不到则提示 “请正确填写”
Set Rs = Con.Execute("DELETE from MF_pos where 单据号 like '%" & Text1.Text & "%'")
If MsgBox("是否删除当前行？", vbYesNo, "确认") = vbYes Then
MsgBox "删除成功！"
End If
这样写有问题，你都执行删除操作了。还问别人是否确认？？顺序问题。可以把第一句写在
MsgBox "删除成功！" 这里。
并且你这样也判断不了是否删除成功的。建议使用下面的模式
conn.execute msql, t
If t > 0 Then
'成功
Else
'失败
End If
如果你需要看数据库中有没有 符合条件的数据，可以先查询一次，判断查询结果。
Dim Con As New ADODB.Connection
Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=biao"
Con.Open
Dim rs As New ADODB.Recordset
ssSQL = "SELECT ****"
rs.Open SSQL, Con, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
有这条数据
Else
rs.AddNew
rs.Fields("字段1") = ""
rs.Fields("字段