标题:高手们我的程序错在那里啊?
只看楼主
g25vs45
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-9-11
 问题点数:0 回复次数:1 
高手们我的程序错在那里啊?
Option Compare Database
Private Sub cm1_Click()
Dim rs As New ADODB.Recordset
Dim str As String
Dim logname As String
Dim pwd As String
logname = Me.wb1.Value
pwd = wb2.Value
If IsNull(logname) Then
    DoCmd.Beep
    MsgBox ("请输入用户名")
ElseIf IsNull(pwd) Then
DoCmd.Beep
MsgBox ("请输入密码")
Else
Dim sqlstr As String
sqlstr = "select * from 注册表 where ID="& logname & "and PASSWORD="& pwd "
rs.Open sqlstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户,请前去注册")
wb1.Text = ""
wb2.Text = ""
wb1.SetFocus
Exit Sub
Else
DoCmd.Beep
MsgBox ("欢迎进入成绩管理系统")
End If
End If
End Sub


高手指点一下啊,偶还是一菜鸟,谢谢拉
搜索更多相关主题的帖子: 输入密码 用户名 注册表 where 
2005-09-11 16:53
luperfect
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-4-23
得分:0 
没有详看,但你的SQL语句有问题: sqlstr = "select * from 注册表 where ID="& logname & "and PASSWORD="& pwd " 改为: sqlstr = "select * from 注册表 where ID ='"& logname & "' and PASSWORD='"& pwd &"'"

2005-09-30 17:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-27326-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.299862 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved