Office中国论坛/Access中国论坛

标题: 帮我看看为什么密码用了掩码进不了了 [打印本页]

作者: gxy1000 时间: 2011-3-3 21:55
标题: 帮我看看为什么密码用了掩码进不了了
帮我看看为什么密码用了掩码进不了了
Private Sub Command9_Click()
   '定义 connection 对象
   Dim cn As ADODB.Connection
   '定义 recordset 对象

   Dim rs As New ADODB.Recordset
   Dim username As String
   Dim userpass As String
   Dim sql As String
   '使用access内置 connection对象
   Set cn = CurrentProject.Connection
   Text1.SetFocus
   username = Text1.Text
   Text3.SetFocus
   userpass = Text3.Text
   sql = "select * from 用户表 where 用户名 ='" & username & "' And " & _
         "密码 = '" & userpass & "'"
   rs.Open sql, cn
   If rs.EOF Then
         MsgBox "登录失败"
         Text1.SetFocus
         Text1.Text = ""
         Text3.SetFocus
         Text3.Text = ""
Else
         DoCmd.Close
         DoCmd.OpenForm "鑫马综合信息"
         MsgBox "登录成功"
End If
'关闭 recodset 对象和connection对象并释放内存资源
rs.Close
cn.Close
Set rs = Nothing
End Sub
是不是少写了什么？帮我改改！谢谢！

作者: roych 时间: 2011-3-3 23:05
本帖最后由 roych 于 2011-3-3 23:07 编辑

把userpass = Text3.Text改成：
userpass = Text3.Value
试试看？此外仍需注意控件名称是否正确。这是改编自之前回复的一个例子：
[attach]45009[/attach]

作者: gxy1000 时间: 2011-3-4 18:28
回复 roych 的帖子

谢谢成功了！！！！！！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)