我想在vb中更新SQL数据库中的数据，为什么不提示错误也不更新数据。
sql="select*fromasp_infowherelost='"&Text2.Text&"'"rs_login.Opensql,connectionstring,...
sql = "select * from asp_info where lost = '" & Text2.Text & "'"
rs_login.Open sql, connectionstring, 1, 3
If rs_login.EOF = True Then
MsgBox "没有该记录", vbOKOnly + vbExclamation
Text2.SetFocus
Text2 = ""
Else
rs_login.Fields("SDstr") = Trim(Text5.Text)
End If 展开
rs_login.Open sql, connectionstring, 1, 3
If rs_login.EOF = True Then
MsgBox "没有该记录", vbOKOnly + vbExclamation
Text2.SetFocus
Text2 = ""
Else
rs_login.Fields("SDstr") = Trim(Text5.Text)
End If 展开
1个回答
展开全部
还要加一句: rs_login.update
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
