Question

VB中提示缺少子程序、函数或属性，是怎么回事？

Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset '判断是否一致 If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword2.Text = "" Else txtSQL "select * from user_info where user_id='" & UserName & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(1) = txtPassword1.Text mrc.Update mrc.Close MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码" Me.Hide End If End Sub

Answer 1

txtSQL "select * from user_info where user_id='" & UserName & "'"
改为
txtSQL = "select * from user_info where user_id='" & UserName & "'"

Answer 2

txtSQL "select * from user_info where user_id='" & UserName & "'"

少了一个等号

txtSQL= "select * from user_info where user_id='" & UserName & "'"