怎么说呢!这是一个新征程,虽然它已经开始了一段时间,只想说开始总是那么的不易,古语说得好“万事开头难”,很好,我已经开始了!接下来,一起先来看看一直以来我遇到的问题吧!
解决办法:
Dim mrc As ADODB.Recordset '对mrc变量的定义应为“Dim mrc AS New ADODB.Recordset”
原因:一般原因为无法打开数据库的表,自己原因是代码错误,没有连接到数据库
修改:
模块中的错误:ConnectString = “FileDSN=studentinfo.dsn;UID=sa;PWD=”
应修改为:ConnectString = “FileDSN=student.dsn;” 'UID=sa;PWD="
原因:ODBC连接的是student,注释原因:自己用的是Windows连接而不是密码,所以要注册掉。
错误:
***If Trim(txtUserName.Text = "") Then*** 应改为:If Trim(txtUserName.Text) = "" Then
MsgBox "用户名为u空!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'查询指定用户名的记录
txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
'执行查询语句
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'判断输入密码是否正确
If Trim(mrc.Fields(1)) = Trim(txtPassWord.Text) Then
OK = True
' mrc.Close
' Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassWord.SetFocus
txtPassWord.Text = ""
End If
End If
End If
MsgBox "用户名为u空!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'查询指定用户名的记录
txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
'执行查询语句
Set mrc = ExecuteSQL(txtSQL, MsgText)
***If mrc.EOF = True Then*** 应改为:If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'判断输入密码是否正确
If Trim(mrc.Fields(1)) = Trim(txtPassWord.Text) Then
OK = True
' mrc.Close
' Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassWord.SetFocus
txtPassWord.Text = ""
End If
End If
End If
'记载输入密码次数
miCount = miCount + 1
If miCount = 3 Then
Me.Hide ‘卸载当前窗体
frmMain.Show ‘加载主窗体
End If
Exit Sub
End Sub
个人理解:
If mrc.EOF = True Then
MsgBox “没有这个用户,请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
表示:如果数据库内有记录,且检测到输入的内容为数据库内有的记录,就会提示“没有这个用户,请重新输入用户名!”
If mrc.EOF = False Then
MsgBox “没有这个用户,请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
表示:如果数据库内又记录,且检测到数据库内没有输入的内容,就会提示“没有这个用户,请重新输入用户名!”。
**对EOF与BOF的详细的解释:**https://blog.csdn.net/MyxZxd/article/details/81875517
好了,今天就到这里了,当然这远远还没有结束,这注定是一场惊险刺激的过程,接下来敬请期待吧!