VB高手帮我解决一个问题，谢谢~~

来源：百度知道编辑：UC知道时间：2024/05/25 18:47:05

今天开发VB的小系统时，碰到这个问题，总是update语句的语法错误，请高手帮我看看

If rs.State = adStateOpen Then rs.Close
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\datebase\datebase.mdb"
conn.Open
sqlstr = "select * from admin where key='" & Trim(Text1) & "'"
Set rs.ActiveConnection = conn
Set rs = conn.Execute(sqlstr)

If rs.EOF Then
MsgBox "你输入的旧密码有误，请重新输入！！", vbOKOnly + vbExclamation, "系统提示"
Text1 = ""
Text1.SetFocus
Else
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次输入的新密码不以至，请核对后输入！！", vbOKOnly + vbInformation, "系统提示"
Text2 = ""
Text3 = ""
Text2.SetFocus
Else
sqlstr = "update admin set key='" & Trim(Text2.Text) & "'where yonghu ='Administrator'"
conn.Execu

sqlstr = "update admin set key='" & Trim(Text2.Text) & "' where yonghu ='Administrator'"
where前面加个空格，

另外key应该是sql关键字
那么就要这么来写

sqlstr = "update [admin] set [key]='" & Trim(Text2.Text) & "' where [yonghu] ='Administrator'"

//////////////////////////////////////////

那么就奇怪了，看着没有问题啊，你在Execute之前先msgbox出来一个sqlstr看看，看他的sqlstr加上变量是什么样子

VB高手帮我解决一个问题，谢谢~~ 请高手帮我解决VB问题 VB 高手请进：悬赏100分帮我解决一个VB问题 VB.net 编程高手进来帮我解决个问题.谢谢为什么安装VB失败？高手请帮我解决，谢谢！！！请各位帮我解决一个vb的保存问题，谢谢！！帮我解决下VB的一个小问题吧！！高手帮我解决一个问题 VB高手帮忙解决下问题。谢谢。帮我解决一个QQ问题,谢谢!