Attribute VB_Name = "ModDatabase"
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發布日期：2007/09/25
'描    述：江蘇大學網絡信息中心網絡管理系統 - v1.0 Beta
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************

Public cnn As ADODB.Connection
Public ConnectString As String


Public Function BeginTrans()
    cnn.BeginTrans
End Function

Public Function CommitTrans()
    cnn.CommitTrans
End Function

Public Function RollbackTrans()
    cnn.RollbackTrans
End Function

Public Function Connect()
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
End Function

Public Function Disconnect()
    cnn.Close
    Set cnn = Nothing
End Function

Public Function ExecuteSQL(ByVal sql As String, MsgString As String, HasError As Boolean) As ADODB.Recordset
    
    Dim rst As ADODB.Recordset

    Dim sTokens() As String
    
    On Error GoTo ExcuteSQL_Error
    sTokens = Split(sql)
    
    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$(sql), cnn, adOpenKeyset, adLockOptimistic
       Set ExecuteSQL = rst
       MsgString = "查詢到" & rst.RecordCount & " 條記錄 "
    End If
    
    HasError = False
    Exit Function

ExcuteSQL_Error:
    MsgString = "查詢錯誤：" & Err.Description
    Set rst = Nothing
    HasError = True

End Function