| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 494 人关注过本帖
标题:[求助]拜托各位看下我的代码~
只看楼主 加入收藏
海蓝之谜
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-7-13
收藏
 问题点数:0 回复次数:8 
[求助]拜托各位看下我的代码~

Public LoginSucceeded As Boolean
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()

Dim strUserName$, strPassword$, strSQL$
Static Count As Byte '数据规格化
strUserName = Replace(Trim(txtUserName.Text), "", "")
strPassword = Replace(Trim(txtPassword.Text), "", "")
If strUserName = "" Then
MsgBox "用户名不能为空,请输入用户名!"
txtUserName.SetFocus
Exit Sub
ElseIf strPassword = "" Then
MsgBox "密码不能为空,请输入密码!"
txtPassword.SetFocus
Exit Sub
End If '查询数据库中是否存在满足条件的用户名
Connstring = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\vb\db1.mdb;Persist Security Info=False"
With Conn
.ConnectionString = Connstring
.CommandTimeout = 10
.Open
End With
MsgBox "连接成功"

strSQL = "SELECT * FROM pwd WHERE UserName='" & strUserName & "' "
strSQL = strSQL & "AND Password= '" & strPassword & "';"
'rs.Open strSQL, Conn
'If rs.EOF Then
Count = Count + 1
MsgBox "用户名不存在或密码错误!"
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
'Else
UserName = Trim(txtUserName.Text)
MDIForm1.Show
Me.Hide
'End If
'rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
If Count >= 3 Then
MsgBox "超过登录次数,无权登录本系统!", , "登录失败"
End '退出系统
End If

End Sub

Private Sub Form_Load()
LoginSucceeded = False
End Sub
这是个登陆窗口的代码~~要连接ACCESS的数据库,请问下有哪里不妥~~老运行不成功~~不知哪里有问题~~
帮我看下吧~~

搜索更多相关主题的帖子: 代码 
2006-07-13 18:36
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
提示啥錯誤?.

我的msn: myfend@
2006-07-13 19:28
海蓝之谜
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-7-13
收藏
得分:0 
rs.Open strSQL, Conn 他说这个没有指定值~~是什么意思啊

学习~
2006-07-14 12:54
hjuanz
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-7-12
收藏
得分:0 

'rs.Open strSQL, Conn
这句你是作为注释了

2006-07-14 13:54
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
把出现问题的模块打包发上来..
不知道你有没有QQ?..

我的msn: myfend@
2006-07-14 14:02
海蓝之谜
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-7-13
收藏
得分:0 

哦~因为RS老出问题~我就把关于RS的都先变成注释了~问题是登陆是行了~~可不受控制了~~无论输什么都能进系统了


学习~
2006-07-14 17:00
海蓝之谜
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-7-13
收藏
得分:0 

有啊~~有啊~我的Q在我资料里谢谢肯教我


学习~
2006-07-14 17:05
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
已经好了..

我的msn: myfend@
2006-07-14 19:39
gjhflq
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-7-8
收藏
得分:0 

是那出了问题

2006-07-15 09:08
快速回复:[求助]拜托各位看下我的代码~
数据加载中...
 
   



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

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