Initial population

2026-03-07 19:38:21 -06:00
commit 46735bddd3
59 changed files with 12911 additions and 0 deletions
--- a/clsDatabaseLayer.vb
+++ b/clsDatabaseLayer.vb
@@ -0,0 +1,75 @@
+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