moddatabase.bas

来自「网路设备资产管理系统」· BAS 代码 · 共 71 行

Attribute VB_Name = "ModDatabase"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/25
'描    述：江苏大学网络信息中心网络管理系统 - v1.0 Beta
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'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