Question

VB 连接数据库Access来修改密码时，总是提示“rs.Open strSQL, conn, 3, 3”错误？怎么改正，请求大神！

If frmpassword.Text1.Text <> frmlogin.Text1.Text ThenMsgBox "原始密码输入不正确，请重新输入！", vbInformation Or vbOKOnly, "系统提示"ElseIf frmpassword.Text2.Text <> frmpassword.Text3.Text ThenMsgBox "两次输入的新密码不一致，请重新输入！", vbInformation Or vbOKOnly, "系统提示"ElseDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim Str1 As StringDim Str2 As StringDim Str3 As StringStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;"Str2 = "Data Source=" & App.Path & "\password.mdb;"Str3 = "Jet OLEDB:Database Password="conn.Open Str1 & Str2 & Str3strSQL = "select * from password where P_W=" & Val(frmpassword.Text3.Text) & ""rs.Open strSQL, conn, 3, 3rs!P_W = frmpassword.Text3.Textrs.Updaters.Closeconn.CloseMsgBox ("修改记录成功！")Adodc1.Refreshfrmpassword.Hidefrmlogin.ShowEnd IfEnd If

Answer 1

'改成

Dim a As Integer
a = Val(frmpassword.Text3.Text)
strSQL = "select * from password where P_W= " & a & ""
rs.Open strSQL, conn, 3, 3

追问

不行，还是一样报错！你这样也只是换了一种说法啊

追答

郁闷，。。。没注意你的表名 password 是VB保留的关键字，所以你要加中括号才可以

这次没跑了

Dim a As Integer
a = Val(frmpassword.Text3.Text)
strSQL = "select * from [password] where P_W= " & a & ""
rs.Open strSQL, conn, 3, 3

追问

哦哦，第一次弄这个，还没注意，但是我还了表名，数据库名也换了，还是不行

求解释，我的QQ 2235976062，谢谢了

追答

很明显 你赋值给SQL语句的变量类型和数据库的字段类型不符！这个还需要求什么解释啊
你执行下立即看下结果不就得啦吗

追问

我数据库设置的短文本，请问怎么改！

追答

这个。。access打开，设计模式，更改。。。