Question

vb 修改密码 求高手帮忙修改一下错误， 是修改密码的代码，

vb 修改密码 求高手帮忙修改一下错误， 是修改密码的代码，
Private Sub jcbutton1_Click()
If Text1 = "" Then
MsgBox "请填写用户名！", vbInformation + vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox "请填写旧密码！", vbInformation + vbOKOnly, "提示"
Text2.SetFocus
Exit Sub
End If
SQL = "select * from user where nam='" & Trim$(Text1.Text) & "'and " & "pwd='" & Trim$(Text2.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
If Text3 = "" Then
MsgBox "请填写新密码！", vbInformation + vbOKOnly, "提示"
Text3.SetFocus
Exit Sub
End If
If Text4 = "" Then
MsgBox "请填写确认密码！", vbInformation + vbOKOnly, "提示"
Text4.SetFocus
Exit Sub
End If
If Text3.Text = Text4.Text Then
Adodc1.Recordset.Fields("pwd").Value = Text3.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "成功更改新密码！", vbInformation + vbOKOnly, "提示"
Else
MsgBox "两次输入的密码不一致，请重新输入！", vbExclamation + vbOKOnly, "提示"
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
End If
Else
MsgBox "无效的用户名或密码", vbExclamation + vbOKOnly, "提示"
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\admin.mdb"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strDataSource
Adodc1.RecordSource = "select * from user"
Adodc1.Refresh
End Sub

Answer 1

SQL = "select * from [user] where nam='" & Trim$(Text1.Text) & "'and " & "pwd='" & Trim$(Text2.Text) & "'"

Adodc1.RecordSource = "select * from [user]"

user要加括号，它是access保留字。

Answer 2

SQL = "select * from user where name='" & Trim$(Text1.Text) & "' and pwd='" & Trim$(Text2.Text) & "'"

追问

不是name 是nam 字没有错 ， 只出现sql语法错误

追答

私信留下Q，帮你解决

追问

1332930558

Answer 3

【SQL】 = "select * from user where nam='" & Trim$(Text1.Text) & "'and " & "pwd='" & Trim$(Text2.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = 【strSQL】

检查比较【 】里面的内容，以及其他字段的拼法是否正确。

追问

追答

服了，你竟然直接贴着用！
Dim strSQL as String
strSQL = "select * from user where nam='" & Trim$(Text1.Text) & "'and " & "pwd='" & Trim$(Text2.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL

《2个 strSQL 名称要一致即可》

追问

追答

黄颜色代码里会错误产生，是因为你的前端代码找到了Recordset 0 这只能说至少含有一笔或多笔查找到的数据，但是当前的数据就算只有一笔，它的absolutePosition 有可能是 adPosBOF也可能是adPosEOF,或adPosUnknow。数据当前指标（序数为BOF属性或EOF属性）不在当前的数组位置上，此时就没有对应的"pwd"字段可以做赋值动作。适当的把Recordset做MoveLast 或Movefirst之后，就不会有(BOF或EOF) 这个实时错误。