jreuss/OrganLit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to .Net 10/SQL 2025

Browse Source
This commit is contained in:
Jon
2026-04-21 16:35:57 -05:00
parent 46735bddd3
commit a9379d308e
50 changed files with 2069 additions and 2179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
clsHymnal.vb
View File

@@ -17,12 +17,12 @@ Public Class clsHymnal
End Sub
Public Sub New(ByVal lstrHymnalName As String)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymnal_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalName As New SqlClient.SqlParameter
Dim prmHymnalName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalName.ParameterName = "@hymnal_name"
prmHymnalName.SqlDbType = SqlDbType.VarChar
prmHymnalName.Size = MyGlobals.HYMNAL_NAME_SIZE
@@ -49,12 +49,12 @@ Public Class clsHymnal
Public Sub New(ByVal lguidHymnalID As Guid)
mguidHymnalID = lguidHymnalID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymnal"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalID As New SqlClient.SqlParameter
Dim prmHymnalID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalID.ParameterName = "@hymnal_id"
prmHymnalID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
@@ -91,12 +91,12 @@ Public Class clsHymnal
Try
MyGlobals.RemoveCachedObject(Me.HymnalID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_hymnal"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalID As New SqlClient.SqlParameter
Dim prmHymnalID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalID.ParameterName = "@hymnal_id"
prmHymnalID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
@@ -121,24 +121,24 @@ Public Class clsHymnal
MyGlobals.AddCachedObject(Me, Me.HymnalID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_hymnal"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalID As New SqlClient.SqlParameter
Dim prmHymnalID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalID.ParameterName = "@hymnal_id"
prmHymnalID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
prmHymnalID.Value = mguidHymnalID
ldbcmdCommand.Parameters.Add(prmHymnalID)
' Set up parameter for stored procedure
Dim prmHymnalName As New SqlClient.SqlParameter
Dim prmHymnalName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalName.ParameterName = "@hymnal_name"
prmHymnalName.SqlDbType = SqlDbType.VarChar
prmHymnalName.Size = MyGlobals.HYMNAL_NAME_SIZE
prmHymnalName.Value = mstrHymnalName
Dim prmHymnalAbbreviation As New SqlClient.SqlParameter
Dim prmHymnalAbbreviation As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalAbbreviation.ParameterName = "@hymnal_abbreviation"
prmHymnalAbbreviation.SqlDbType = SqlDbType.VarChar
prmHymnalAbbreviation.Size = MyGlobals.HYMNAL_ABBREVIATION_SIZE
@@ -152,25 +152,25 @@ Public Class clsHymnal
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_hymnal"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalID As New SqlClient.SqlParameter
Dim prmHymnalID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalID.ParameterName = "@hymnal_id"
prmHymnalID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
prmHymnalID.Value = mguidHymnalID
ldbcmdCommand.Parameters.Add(prmHymnalID)
' Set up parameter for stored procedure
Dim prmHymnalName As New SqlClient.SqlParameter
Dim prmHymnalName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalName.ParameterName = "@hymnal_name"
prmHymnalName.SqlDbType = SqlDbType.VarChar
prmHymnalName.Size = MyGlobals.HYMNAL_NAME_SIZE
prmHymnalName.Value = mstrHymnalName
ldbcmdCommand.Parameters.Add(prmHymnalName)
Dim prmHymnalAbbreviation As New SqlClient.SqlParameter
Dim prmHymnalAbbreviation As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalAbbreviation.ParameterName = "@hymnal_abbreviation"
prmHymnalAbbreviation.SqlDbType = SqlDbType.VarChar
prmHymnalAbbreviation.Size = MyGlobals.HYMNAL_ABBREVIATION_SIZE
@@ -193,12 +193,12 @@ Public Class clsHymnal
Public Function DuplicateHymnalNameExists(ByVal lstrHymnalNameToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymnal_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalName As New SqlClient.SqlParameter
Dim prmHymnalName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalName.ParameterName = "@hymnal_name"
prmHymnalName.SqlDbType = SqlDbType.VarChar
prmHymnalName.Size = MyGlobals.HYMNAL_NAME_SIZE
@@ -228,12 +228,12 @@ Public Class clsHymnal
Public Function DuplicateHymnalAbbreviationExists(ByVal lstrHymnalAbbreviationToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymnal_by_abbreviation"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalAbbreviation As New SqlClient.SqlParameter
Dim prmHymnalAbbreviation As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalAbbreviation.ParameterName = "@hymnal_abbreviation"
prmHymnalAbbreviation.SqlDbType = SqlDbType.VarChar
prmHymnalAbbreviation.Size = MyGlobals.HYMNAL_ABBREVIATION_SIZE
@@ -348,12 +348,12 @@ Public Class clsHymnal
lstrReferencedByString = ""
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymnal_isreferenced"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnalID As New SqlClient.SqlParameter
Dim prmHymnalID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnalID.ParameterName = "@hymnal_id"
prmHymnalID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
@@ -399,7 +399,7 @@ Public Class clsHymnal
Public Shared Function GetAllHymnals() As System.Collections.Generic.List(Of clsHymnal)
Dim lguidHymnalID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjHymnal As clsHymnal
Dim lcolHymnals As New System.Collections.Generic.List(Of clsHymnal)