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

Question

本帖最后由 lfsfxy9 于 2009-07-23 09:15:32 编辑

Answer 1

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)'执行语句

Answer 2

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)'执行语句

Answer 3

'try
If mrc.EOF or mrc.bof Then

Answer 4

ExecuteSQL 函数如下 ：Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123"
End FunctionPublic 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 IfExecuteSQL_Exit:
    Set rst = Nothing
    Set cnn = Nothing
    
    Exit Function
    
ExecuteSQL_Error:
        MsgString = "查询错误" & _
            Err.Description
        Resume ExecuteSQL_Exit
        
End Function

Answer 5

sdhdy  你好哈经过我的try ，VB环境 把 后面的那个 eof 直接改成 EOF了，还是不行不知道为什么....后来的朋友可否将出现这种情况的肯能小小的列举一下呢，不胜感激~

Answer 6

原因出在了  frmLogin 这个地方，拼写错误了...
马虎不得呀~  呵呵，结贴啦

Answer 7

Trim$(sql)就行了
还有就是你那个sub main里的东西，也错了。我帮你改了，你记得看看。
有困难就找哥，

Answer 8

语法Str(number)
貌似trim和trim$差不多一样