appmodpub.vb

vb2005电子书籍——vb.net项目开发宝典源码

Imports System.Data.SqlClient


Namespace wsbgxt


    Public Module PublicMod






        Private Const SQL_CONNECTION_MSG As String = _
       "要运行这个实例，机器上必须安装有SQL Server"
        Public Const SQL_CONNECTION_STRING As String = _
          "Server=localhost;DataBase=secs;Integrated Security=SSPI"
        Private lbConnected As Boolean = False
        Private strConn As String = SQL_CONNECTION_STRING


        '   Private Const MSDE_CONNECTION_STRING As String = _
        '  "Server=(local)\NetSDK;DataBase=northwind;" & _
        '   "Integrated Security=SSPI"






        '***********************************************************************
        'Function : ADO.NET Connection to SQLServer
        '***********************************************************************
        Public Sub ConnectDB(ByRef refscnn As SqlConnection)
            Dim scnn As SqlConnection
            Try
                scnn = New SqlConnection(strConn)
                scnn.Open()
                refscnn = scnn
                lbConnected = True
            Catch exp As Exception
                refscnn = Nothing
                Err.Raise(513 + 1008, SQL_CONNECTION_MSG, exp.Message)
            End Try
        End Sub


        '***********************************************************************
        'Function : ADO.NET Disconnect to SQLServer
        '***********************************************************************
        Public Sub DisConnect(ByRef refscnn As SqlConnection)
            Dim scnn As SqlConnection
            If lbConnected Then
                scnn = refscnn
                Try
                    If scnn.State = ConnectionState.Open Then
                        scnn.Close()
                    End If
                Catch exp As Exception
                    refscnn = Nothing
                    Err.Raise(513 + 1008, SQL_CONNECTION_MSG, exp.Message)
                End Try
            End If
        End Sub


        '***********************************************************************
        'Function : Application EventLog from Database Message/Exception
        '***********************************************************************
        Public Sub LogException(ByVal sqlex As SqlException)
            Dim el As New System.Diagnostics.EventLog
            Dim sqle As SqlError
            Dim strMessage As String
            el.Source = "C;\WebOA-DBError.LOG"
            strMessage = "错误或异常号 : " & sqlex.Number & _
                        "(" + sqlex.Message + ") 已发生"
            el.WriteEntry(strMessage)
            For Each sqle In sqlex.Errors
                strMessage = "Message: " & sqle.Message & _
                             " Number: " & sqle.Number & _
                             " Procedure: " & sqle.Procedure & _
                             " Server: " & sqle.Server & _
                             " Source: " & sqle.Source & _
                             " State: " & sqle.State & _
                             " Severity: " & sqle.Class & _
                             " LineNumber: " & sqle.LineNumber
                el.WriteEntry(strMessage)
            Next
        End Sub


    End Module



End Namespace