Imports System.Data
Imports System.Windows.Forms

Public Class clsDatabaseLayer
    Private m_dbcnctConnection As SqlClient.SqlConnection

    Public Function OpenDatabaseConnection() As Boolean
        Try
            m_dbcnctConnection = New SqlClient.SqlConnection
            'm_dbcnctConnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=OrganLit;server=REUSS\SQLEXPRESS;Connect Timeout=30"
            'm_dbcnctConnection.ConnectionString = "Persist Security Info=False;Integrated Security=False;User ID=OrganLitDBLogin;Password=OrganLitDBL0gin7;database=OrganLit;server=REUSS\SQLEXPRESS;Connect Timeout=30"
            'm_dbcnctConnection.ConnectionString = "Persist Security Info=False;Integrated Security=False;User ID=OrganLitDBLogin;Password=OrganLitDBL0gin7;database=OrganLit;server=SIRJON\REUSSSQL;Connect Timeout=30"
            'm_dbcnctConnection.ConnectionString = "Persist Security Info=False;Integrated Security=False;User ID=OrganLitDBLogin;Password=OrganLitDBL0gin7;database=OrganLit;server=SIRJ\REUSSSQL;Connect Timeout=30"
            m_dbcnctConnection.ConnectionString = "Persist Security Info=False;Integrated Security=True;database=OrganLit;server=SIRJ\REUSSSQL;Connect Timeout=30"
            m_dbcnctConnection.Open()
            Return True
        Catch e As SqlClient.SqlException
            MessageBox.Show("Error in OpenDatabaseConnection: " + e.Message)
            Return False
        Catch e As Exception
            MessageBox.Show("Error in OpenDatabaseConnection: " + e.Message)
            Return False
        End Try
    End Function

    Public Function CloseDatabaseConnection() As Boolean
        Try
            m_dbcnctConnection.Close()
        Catch e As SqlClient.SqlException
            MessageBox.Show("Error in CloseDatabaseConnection: " + e.Message)
            Return False
        Catch e As Exception
            MessageBox.Show("Error in CloseDatabaseConnection: " + e.Message)
            Return False
        End Try

    End Function

    Public Function ExecuteDataSet(ByVal objSQLCommand As SqlClient.SqlCommand) As DataSet
        Try
            objSQLCommand.Connection = m_dbcnctConnection
            Dim ldbdaDataAdapter As New SqlClient.SqlDataAdapter
            ldbdaDataAdapter.SelectCommand = objSQLCommand
            Dim ldbdsDataSet As New DataSet
            ldbdaDataAdapter.Fill(ldbdsDataSet)

            Return ldbdsDataSet
        Catch e As SqlClient.SqlException
            MessageBox.Show("Error in ExecuteDataSet:  Procedure=" + e.Procedure + ControlChars.CrLf + "Error=" + e.Message)
            Return Nothing
        Catch e As Exception
            MessageBox.Show("Error in ExecuteDataSet: " + e.Message)
            Return Nothing
        End Try
    End Function

    Public Function ExecuteNonQuery(ByVal objSQLCommand As SqlClient.SqlCommand) As Integer
        'Returns rows affected

        Try
            objSQLCommand.Connection = m_dbcnctConnection
            Dim lintRowsAffected As Integer = objSQLCommand.ExecuteNonQuery

            Return lintRowsAffected

        Catch e As SqlClient.SqlException
            MessageBox.Show("Error in ExecuteNonQuery:  Procedure=" + e.Procedure + ControlChars.CrLf + "Error=" + e.Message)
            Return 0
        Catch e As Exception
            MessageBox.Show("Error in ExecuteNonQuery: " + e.Message)
            Return 0
        End Try
    End Function

End Class