登录卡在了 这句【If mrc.EOF Then ...】代码上......

[我是一道光_]

如题，我们近期做的一个实例，就是很普遍的 学生信息管理系统，这是个入门缓冲的很不错的实例。

如下，只是frmLogin 窗体的全部代码，其中用到模块里的函数，经检查是没有问题的。通过源代码试验和本人的浅显调试，和数据库的连接还是不成问题的，因为跳过用户名(检查用户名这块儿代码)，是可以进入系统的。
就是一开始卡在了这个用户名的检查上。
(我想是这样的。)

小弟，新学数据库，很多不懂，还望各位大虾，多多帮衬哈~~

Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long


    sBuffer = Space$(255)
    MsgBox sBuffer & "adfa"
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        MsgBox lSize
        txtUserName.Text = ""
   
    Else
        txtUserName.Text = vbNullString
    End If
    

    OK = False
    miCount = 0
End Sub



Private Sub cmdCancel_Click()
    OK = False
    Me.Hide
End Sub


Private Sub cmdOK_Click()
    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    'ToDo: create test for correct password
    'check for correct password
    
    UserName = ""
    If Trim(txtUserName.Text = "") Then
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
    Else
        txtSQL = "select * from user_Info where user_ID = '" & Trim(txtUserName.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)


      If mrc.EOF 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 = ""
                Exit Sub
            End If
        End If
    End If
    
    miCount = miCount + 1
    If miCount = 3 Then
        Me.Hide
    End If
    Exit Sub
End Sub

[我是一道光_]

ExecuteSQL 函数如下 ：

Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123"
End Function

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String                                         '分段函数
    
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(SQL)
    
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    
    If InStr("INSERT,DELETE,UPDATE", _
                UCase$(sTokens(0))) Then
                
        cnn.Execute SQL
        MsgString = sTokens(0) & _
            "query successful "
    Else
    Set rst = New ADODB.Recordset
    rst.Open Trim(Str(SQL)), cnn, adOpenKeyset, adLockOptimistic
    
    Set ExecuteSQL = rst
    MsgString = "查询到" & rst.RecordCount & _
                        "条记录"
  
    End If

ExecuteSQL_Exit:
    Set rst = Nothing
    Set cnn = Nothing
    
    Exit Function
    
ExecuteSQL_Error:
        MsgString = "查询错误" & _
            Err.Description
        Resume ExecuteSQL_Exit
        
End Function

[我是一道光_]

sdhdy 你好哈

经过我的try ，VB环境 把 后面的那个 eof 直接改成 EOF了，还是不行

不知道为什么....

后来的朋友可否将出现这种情况的肯能小小的列举一下呢，不胜感激~

[chowyi]

不懂vb

[我是一道光_]

[Zoezs]

你的ExecuteSQL是什么样的啊？

[Zoezs]

strConnect = "DRIVER=SQL Server;UID=sa;PWD=sa;DATABASE=DBNAME;SERVER=192.168.0.1"
conn.ConnectionString = strConnect '设置连接字串
conn.CursorLocation = adUseClient 

strSql = "select top 10 * from TB"

conn.Open strConnect
Set rs = conn.Execute(strSql)'执行语句

[Zoezs]

strConnect = "DRIVER=SQL Server;UID=sa;PWD=sa;DATABASE=DBNAME;SERVER=192.168.0.1"
conn.ConnectionString = strConnect '设置连接字串
conn.CursorLocation = adUseClient 

strSql = "select top 10 * from TB"

conn.Open strConnect
Set rs = conn.Execute(strSql)'执行语句

[sdhdy]

'try
If mrc.EOF or mrc.bof Then

[我是一道光_]

原因出在了 frmLogin 这个地方，拼写错误了...


马虎不得呀~

呵呵，结贴啦

[the_fire]

[Quote=引用 6 楼 lfsfxy9 的回复:]
rst.Open Trim(Str(SQL)), cnn, adOpenKeyset, adLockOptimistic
[/Quote]
Trim$(sql)就行了
还有就是你那个sub main里的东西，也错了。我帮你改了，你记得看看。
有困难就找哥，

[the_fire]

语法

Str(number)

貌似trim和trim$差不多一样

[我是一道光_]

结贴

[kingjin88]

结了吗 啊