将数据库中的pwd值取出来,在赋值给变量user_pwd 怎么办?

tcbo 2005-03-19 08:57:53
Option Explicit
Dim cnn As ADODB.Connection '连接
Dim mycommand As ADODB.Command '命令
Dim rstByQuery As ADODB.Recordset '结果集
Dim strCnn As String '连接字符串
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
Dim i As Integer
Dim user_pwd As String
Set cnn = New ADODB.Connection
Set mycommand = New ADODB.Command

cnn.CursorLocation = adUseClient
cnn.Open "PROVIDER=MSDASQL;dsn=card;uid=;pwd=;"

mycommand.ActiveConnection = cnn
mycommand.CommandType = adCmdText
mycommand.CommandText = "select pwd from student where user_id='" + txtUserName + '"

Set rstByQuery = New ADODB.Recordset
Set rstByQuery = mycommand.Execute()

'检查正确的密码
If txtPassword = user_pwd Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
MsgBox "succeeded"
Me.Hide
Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
cnn.Close '关闭连接
Set cnn = Nothing '释放连接

End Sub
...全文
51 点赞 收藏 6
写回复
6 条回复
gdos 2005年03月19日
Private Sub cmdOK_Click()
Dim i As Integer
Dim user_pwd As String
Set cnn = New ADODB.Connection
Set mycommand = New ADODB.Command

cnn.CursorLocation = adUseClient
cnn.Open "PROVIDER=MSDASQL;dsn=card;uid=;pwd=;"

mycommand.ActiveConnection = cnn
mycommand.CommandType = adCmdText
mycommand.CommandText = "select pwd from student where user_id='" + txtUserName + '"+" and pwd='"+txtPassword+"'"

Set rstByQuery = New ADODB.Recordset
Set rstByQuery = mycommand.Execute()

'检查正确的密码
If rstByQuery.Recordcount=1 Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
MsgBox "succeeded"
Me.Hide
Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
cnn.Close '关闭连接
Set cnn = Nothing '释放连接

End Sub
回复 点赞
flyingZFX 2005年03月19日
user_pwd =rstByQuery.fields("pwd").value


'检查正确的密码
If txtPassword = user_pwd Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
MsgBox "succeeded"
Me.Hide
Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
回复 点赞
tcbo 2005年03月19日
还有其他的方法吗?
我只是想做个登录系统的判断
回复 点赞
myhgyp 2005年03月19日
在 If txtPassword = user_pwd Then 前添加 “user_pwd =rstByQuery!pwd”
回复 点赞
tztz520 2005年03月19日
user_pwd =rstByQuery!pwd
回复 点赞
tcbo 2005年03月19日
在线等
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2749

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告