Attribute VB_Name = "Module1"
Option Explicit
Public username As String
Public ole_db As String
Public cn As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
Public loginsucceeded As Boolean
Public Sub link()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = " Provider=MSDASQL.1;Persist Security Info=False;User ID=administator;Extended Properties=DSN=graduate;APP=Visual Basic;WSID=DOU-00EF3663BF0;DATABASE=graduate;Trusted_Connection=Yes;Initial Catalog=graduate"
cn.Open
rs.ActiveConnection = cn
rs.Open "use graduate"
End Sub
'Public Function testtxt(txt As String) As Boolean
'  If Trim(txt) = "" Then
'     testtxt = True
'  Else
'     testtxt = False
'  End If
'End Function
Public Function ExecuteSql(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    '傳遞參數(shù):SQL傳遞查詢語句，msgstring傳遞查詢信息
    '自身以一個數(shù)據(jù)集對象的形式返回
    Dim con As ADODB.Connection
    '定義連接
    Dim rs As ADODB.Recordset
    '定義字符數(shù)組來存放SQL關(guān)鍵字
    Dim sTokens() As String
    '異常處理
    On Error GoTo ExecuteSql_Error
    '用split函數(shù)產(chǎn)生一個包括各個子串的數(shù)組
    sTokens = Split(SQL, " ")
    '創(chuàng)建連接
    Set con = New ADODB.Connection
    '選擇打開連接的引擎
    con.ConnectionString = " Provider=MSDASQL.1;Persist Security Info=False;User ID=administator;Extended Properties=DSN=graduate;APP=Visual Basic;WSID=DOU-00EF3663BF0;DATABASE=graduate;Trusted_Connection=Yes;Initial Catalog=graduate"
    '判斷字符串中是否含有指定內(nèi)容
    con.ConnectionTimeout = 30
    con.Open
    If InStr("insert,delete,update", LCase$(sTokens(0))) Then
        '執(zhí)行查詢語句
        con.Execute SQL
        '返回查詢信息
        MsgString = sTokens(0) & "query successful"
    Else
        '創(chuàng)建查詢對象
        Set rs = New ADODB.Recordset
        '返回查詢結(jié)果
        rs.CursorLocation = adUseClient
        rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
        'rs.movelast ' get recordcount
        '返回記錄集對象
        Set ExecuteSql = rs ' 將記錄集傳遞給
        MsgString = "查詢到" & rs.RecordCount & "條記錄"
End If
ExecuteSql_exit:
    'rs及con對象的close在調(diào)用函數(shù)的程序中關(guān)閉
    '清空數(shù)據(jù)集對象
      Set rs = Nothing
    '中斷連接
      Set con = Nothing
      Exit Function
'錯誤類型判斷
ExecuteSql_Error:
      MsgString = "查詢錯誤:" & Err.Description
      MsgBox MsgString, vbOKOnly + vbExclamation, "警告"
      Resume ExecuteSql_exit
End Function