76 lines
3.5 KiB
VB.net
76 lines
3.5 KiB
VB.net
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
|