Office中国论坛/Access中国论坛

标题: 求助急死小弟了！谢谢 [打印本页]

作者: shilixi 时间: 2009-6-19 21:34
标题: 求助急死小弟了！谢谢
本帖最后由 shilixi 于 2009-6-20 11:40 编辑

Public Function login() As Boolean
Dim rs As New ADODB.Recordset
Dim strsql As String
strsql = "select * from 密码库 where '" & Me.cbouser & "'"
rs.Open strsql, CurrentProject.connextion
adOpenStatic , adLockReadOnly
If rs.RecordCount > 0 Then
if rs! 密码=me. txtpwd then
login = True
End If
End If
rs.Close
Set rs = Nothing
End Function
if rs! 密码=me. txtpwd then出错了谢谢帮忙看看怎么改

作者: youchytan 时间: 2009-6-20 09:36
传附件

作者: shilixi 时间: 2009-6-20 11:41
2# youchytan
谢谢了帮忙看看愁死我了

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