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

60
clsHymnTuneName.vb
View File

@@ -19,12 +19,12 @@ Public Class clsHymnTuneName
End Sub
Public Sub New(ByVal lstrHymnTuneName As String)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn_tune_name_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneName As New SqlClient.SqlParameter
Dim prmHymnTuneName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneName.ParameterName = "@hymn_tune_name"
prmHymnTuneName.SqlDbType = SqlDbType.VarChar
prmHymnTuneName.Size = MyGlobals.HYMN_TUNE_NAME_SIZE
@@ -76,12 +76,12 @@ Public Class clsHymnTuneName
Private Sub LoadByHymnTuneNameId(ByVal lguidHymnTuneNameID As Guid, ByVal lblnLoadOtherTuneNamesForTune As Boolean)
mguidHymnTuneNameID = lguidHymnTuneNameID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn_tune_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameID As New SqlClient.SqlParameter
Dim prmHymnTuneNameID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameID.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
@@ -126,12 +126,12 @@ Public Class clsHymnTuneName
MyGlobals.RemoveCachedObject(Me.HymnTuneNameID.ToString)
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_hymn_tune_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameID As New SqlClient.SqlParameter
Dim prmHymnTuneNameID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameID.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
@@ -181,19 +181,19 @@ Public Class clsHymnTuneName
objOtherHymnTuneName = CType(objDictionaryEntry.Value, clsHymnTuneName)
objOtherHymnTuneName.HymnTuneID = mguidHymnTuneID
Dim ldbcmdCommandSaveOtherRemaining As New SqlClient.SqlCommand
Dim ldbcmdCommandSaveOtherRemaining As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommandSaveOtherRemaining.CommandText = "upd_hymn_tune_name_with_tune_id"
ldbcmdCommandSaveOtherRemaining.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameIDSaveOtherRemaining As New SqlClient.SqlParameter
Dim prmHymnTuneNameIDSaveOtherRemaining As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameIDSaveOtherRemaining.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameIDSaveOtherRemaining.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameIDSaveOtherRemaining.Size = 5
prmHymnTuneNameIDSaveOtherRemaining.Value = objOtherHymnTuneName.HymnTuneNameID
ldbcmdCommandSaveOtherRemaining.Parameters.Add(prmHymnTuneNameIDSaveOtherRemaining)
' Set up parameter for stored procedure
Dim prmHymnTuneIDSaveOtherRemaining As New SqlClient.SqlParameter
Dim prmHymnTuneIDSaveOtherRemaining As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneIDSaveOtherRemaining.ParameterName = "@hymn_tune_id"
prmHymnTuneIDSaveOtherRemaining.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneIDSaveOtherRemaining.Size = 5
@@ -214,19 +214,19 @@ Public Class clsHymnTuneName
objOtherHymnTuneName = CType(objDictionaryEntry.Value, clsHymnTuneName)
objOtherHymnTuneName.HymnTuneID = mguidHymnTuneID
Dim ldbcmdCommandSaveOtherAdded As New SqlClient.SqlCommand
Dim ldbcmdCommandSaveOtherAdded As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommandSaveOtherAdded.CommandText = "upd_hymn_tune_name_with_tune_id_with_matches"
ldbcmdCommandSaveOtherAdded.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameIDSaveOtherAdded As New SqlClient.SqlParameter
Dim prmHymnTuneNameIDSaveOtherAdded As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameIDSaveOtherAdded.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameIDSaveOtherAdded.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
prmHymnTuneNameIDSaveOtherAdded.Value = objOtherHymnTuneName.HymnTuneNameID
ldbcmdCommandSaveOtherAdded.Parameters.Add(prmHymnTuneNameIDSaveOtherAdded)
' Set up parameter for stored procedure
Dim prmHymnTuneIDSaveOtherAdded As New SqlClient.SqlParameter
Dim prmHymnTuneIDSaveOtherAdded As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneIDSaveOtherAdded.ParameterName = "@hymn_tune_id"
prmHymnTuneIDSaveOtherAdded.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneID.Size = 5
@@ -238,26 +238,26 @@ Public Class clsHymnTuneName
End If
Dim ldbcmdCommandUpdateThis As New SqlClient.SqlCommand
Dim ldbcmdCommandUpdateThis As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommandUpdateThis.CommandText = "upd_hymn_tune_name"
ldbcmdCommandUpdateThis.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameIDUpdateThis As New SqlClient.SqlParameter
Dim prmHymnTuneNameIDUpdateThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameIDUpdateThis.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameIDUpdateThis.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameIDUpdateThis.Size = 5
prmHymnTuneNameIDUpdateThis.Value = mguidHymnTuneNameID
ldbcmdCommandUpdateThis.Parameters.Add(prmHymnTuneNameIDUpdateThis)
' Set up parameter for stored procedure
Dim prmHymnTuneNameUpdateThis As New SqlClient.SqlParameter
Dim prmHymnTuneNameUpdateThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameUpdateThis.ParameterName = "@hymn_tune_name"
prmHymnTuneNameUpdateThis.SqlDbType = SqlDbType.VarChar
prmHymnTuneNameUpdateThis.Size = MyGlobals.HYMN_TUNE_NAME_SIZE
prmHymnTuneNameUpdateThis.Value = mstrHymnTuneName
ldbcmdCommandUpdateThis.Parameters.Add(prmHymnTuneNameUpdateThis)
' Set up parameter for stored procedure
Dim prmHymnTuneIDUpdateThis As New SqlClient.SqlParameter
Dim prmHymnTuneIDUpdateThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneIDUpdateThis.ParameterName = "@hymn_tune_id"
prmHymnTuneIDUpdateThis.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneIDUpdateThis.Size = 5
@@ -288,19 +288,19 @@ Public Class clsHymnTuneName
Else
objOtherHymnTuneName.HymnTuneID = objguidFirstTuneID
Dim ldbcmdCommandUpdateOtherAdding As New SqlClient.SqlCommand
Dim ldbcmdCommandUpdateOtherAdding As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommandUpdateOtherAdding.CommandText = "upd_hymn_tune_name_with_tune_id_with_matches"
ldbcmdCommandUpdateOtherAdding.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameIDUpdateOtherAdding As New SqlClient.SqlParameter
Dim prmHymnTuneNameIDUpdateOtherAdding As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameIDUpdateOtherAdding.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameIDUpdateOtherAdding.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameIDUpdateOtherAdding.Size = 5
prmHymnTuneNameIDUpdateOtherAdding.Value = objOtherHymnTuneName.HymnTuneNameID
ldbcmdCommandUpdateOtherAdding.Parameters.Add(prmHymnTuneNameIDUpdateOtherAdding)
' Set up parameter for stored procedure
Dim prmHymnTuneIDUpdateOtherAdding As New SqlClient.SqlParameter
Dim prmHymnTuneIDUpdateOtherAdding As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneIDUpdateOtherAdding.ParameterName = "@hymn_tune_id"
prmHymnTuneIDUpdateOtherAdding.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneIDUpdateOtherAdding.Size = 5
@@ -313,26 +313,26 @@ Public Class clsHymnTuneName
Next
End If
Dim ldbcmdCommandAddThis As New SqlClient.SqlCommand
Dim ldbcmdCommandAddThis As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommandAddThis.CommandText = "ins_hymn_tune_name"
ldbcmdCommandAddThis.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameIDAddThis As New SqlClient.SqlParameter
Dim prmHymnTuneNameIDAddThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameIDAddThis.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameIDAddThis.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
prmHymnTuneNameIDAddThis.Value = mguidHymnTuneNameID
ldbcmdCommandAddThis.Parameters.Add(prmHymnTuneNameIDAddThis)
' Set up parameter for stored procedure
Dim prmHymnTuneNameAddThis As New SqlClient.SqlParameter
Dim prmHymnTuneNameAddThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameAddThis.ParameterName = "@hymn_tune_name"
prmHymnTuneNameAddThis.SqlDbType = SqlDbType.VarChar
prmHymnTuneNameAddThis.Size = MyGlobals.HYMN_TUNE_NAME_SIZE
prmHymnTuneNameAddThis.Value = mstrHymnTuneName
ldbcmdCommandAddThis.Parameters.Add(prmHymnTuneNameAddThis)
' Set up parameter for stored procedure
Dim prmHymnTuneIDAddThis As New SqlClient.SqlParameter
Dim prmHymnTuneIDAddThis As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneIDAddThis.ParameterName = "@hymn_tune_id"
prmHymnTuneIDAddThis.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneIDAddThis.Size = 5
@@ -355,12 +355,12 @@ Public Class clsHymnTuneName
Public Function DuplicateExists(ByVal lstrHymnTuneNameToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn_tune_name_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneName As New SqlClient.SqlParameter
Dim prmHymnTuneName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneName.ParameterName = "@hymn_tune_name"
prmHymnTuneName.SqlDbType = SqlDbType.VarChar
prmHymnTuneName.Size = MyGlobals.HYMN_TUNE_NAME_SIZE
@@ -511,12 +511,12 @@ Public Class clsHymnTuneName
lstrReferencedByString = ""
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn_tune_name_isreferenced"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameID As New SqlClient.SqlParameter
Dim prmHymnTuneNameID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameID.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
@@ -554,12 +554,12 @@ Public Class clsHymnTuneName
Dim objSortedListToReturn As New SortedList
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn_tune_name_others_by_hymn_tune_name_id"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnTuneNameID As New SqlClient.SqlParameter
Dim prmHymnTuneNameID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnTuneNameID.ParameterName = "@hymn_tune_name_id"
prmHymnTuneNameID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnTuneNameID.Size = 5
@@ -648,7 +648,7 @@ Public Class clsHymnTuneName
Public Shared Function GetAllHymnTuneNames() As System.Collections.Generic.List(Of clsHymnTuneName)
Dim lguidHymnTuneNameID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjHymnTuneName As clsHymnTuneName
Dim lcolHymnTuneNames As New System.Collections.Generic.List(Of clsHymnTuneName)