使用ado访问SQL Seaver2000 自己用的

Option Explicit

Public Function ConnectString() As String
'******************************************************************************************************************************************
'*                                                                                                                                        *
'*下一方法是引用Setup.ini中的设置信息；其结果同上；"driver={SQL Server};server=192.168.0.5;uid=feifan2000;pwd=1qaz/]'/;database=CCSdata"  *
'*                                                                                                                                        *
'*中国重庆。邹万秋                                                                                                                        *
'******************************************************************************************************************************************
ConnectString = "driver={SQL Server};" & "server=" & DBServerIP & ";uid=" & DBUserId & ";pwd=" & DBPassWord & ";database=" & DBDataBase & ""
End Function

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'**************************************************
'*                                                *
'*此处为数据查询服务处理程序                      *
'*                                                *
'**************************************************
    'executes SQL and returns Recordset                                 '此行不使用
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String

    On Error GoTo ExecuteSQL_Error

    sTokens = Split(SQL)
    Set Conn = New ADODB.Connection
    Conn.Open ConnectString

    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
        Conn.Execute SQL
        MsgString = sTokens(0) & " query successful"
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim$(SQL), Conn, adOpenKeyset, adLockOptimistic
    'rst.MoveLast     'get RecordCount                                  '此行不使用
         Set ExecuteSQL = rst
         MsgString = "共计 " & rst.RecordCount & " 条记录受到影响!"
     End If

ExecuteSQL_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Function

ExecuteSQL_Error:
    MsgString = "对不起查询错误: " & Err.Description
    Resume ExecuteSQL_Exit
End Function

Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function