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

36
clsHymn.vb
View File

@@ -34,12 +34,12 @@ Public Class clsHymn
Public Sub New(ByVal guidHymnID As Guid)
mguidHymnID = guidHymnID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_hymn"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnID As New SqlClient.SqlParameter
Dim prmHymnID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnID.ParameterName = "@hymn_id"
prmHymnID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnID.Size = 5
@@ -99,12 +99,12 @@ Public Class clsHymn
Try
MyGlobals.RemoveCachedObject(Me.HymnID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_hymn"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnID As New SqlClient.SqlParameter
Dim prmHymnID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnID.ParameterName = "@hymn_id"
prmHymnID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnID.Size = 5
@@ -139,19 +139,19 @@ Public Class clsHymn
MyGlobals.AddCachedObject(Me, Me.HymnID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_hymn"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnID As New SqlClient.SqlParameter
Dim prmHymnID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnID.ParameterName = "@hymn_id"
prmHymnID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
prmHymnID.Value = mguidHymnID
ldbcmdCommand.Parameters.Add(prmHymnID)
' 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
@@ -162,21 +162,21 @@ Public Class clsHymn
End If
ldbcmdCommand.Parameters.Add(prmHymnalID)
' Set up parameter for stored procedure
Dim prmHymnNumber As New SqlClient.SqlParameter
Dim prmHymnNumber As New Microsoft.Data.SqlClient.SqlParameter
prmHymnNumber.ParameterName = "@hymn_number"
prmHymnNumber.SqlDbType = SqlDbType.Int
'prmHymnNumber.Size = 5
prmHymnNumber.Value = m_intHymnNumber
ldbcmdCommand.Parameters.Add(prmHymnNumber)
' Set up parameter for stored procedure
Dim prmHymnName As New SqlClient.SqlParameter
Dim prmHymnName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnName.ParameterName = "@hymn_name"
prmHymnName.SqlDbType = SqlDbType.VarChar
prmHymnName.Size = MyGlobals.HYMN_NAME_SIZE
prmHymnName.Value = m_strHymnName
ldbcmdCommand.Parameters.Add(prmHymnName)
' 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
@@ -194,19 +194,19 @@ Public Class clsHymn
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_hymn"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmHymnID As New SqlClient.SqlParameter
Dim prmHymnID As New Microsoft.Data.SqlClient.SqlParameter
prmHymnID.ParameterName = "@hymn_id"
prmHymnID.SqlDbType = SqlDbType.UniqueIdentifier
'prmHymnalID.Size = 5
prmHymnID.Value = mguidHymnID
ldbcmdCommand.Parameters.Add(prmHymnID)
' 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
@@ -216,21 +216,21 @@ Public Class clsHymn
prmHymnalID.Value = m_objHymnal.HymnalID
End If
ldbcmdCommand.Parameters.Add(prmHymnalID)
Dim prmHymnNumber As New SqlClient.SqlParameter
Dim prmHymnNumber As New Microsoft.Data.SqlClient.SqlParameter
prmHymnNumber.ParameterName = "@hymn_number"
prmHymnNumber.SqlDbType = SqlDbType.Int
'prmHymnNumber.Size = 5
prmHymnNumber.Value = m_intHymnNumber
ldbcmdCommand.Parameters.Add(prmHymnNumber)
' Set up parameter for stored procedure
Dim prmHymnName As New SqlClient.SqlParameter
Dim prmHymnName As New Microsoft.Data.SqlClient.SqlParameter
prmHymnName.ParameterName = "@hymn_name"
prmHymnName.SqlDbType = SqlDbType.VarChar
prmHymnName.Size = MyGlobals.HYMN_NAME_SIZE
prmHymnName.Value = m_strHymnName
ldbcmdCommand.Parameters.Add(prmHymnName)
' 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
@@ -249,7 +249,7 @@ Public Class clsHymn
Return False
End If
End If
Catch e As SqlClient.SqlException
Catch e As Microsoft.Data.SqlClient.SqlException
MessageBox.Show(e.Message)
Return False
Catch
@@ -455,7 +455,7 @@ Public Class clsHymn
clsHymnal.AddAllHymnalsToCache()
Dim lguidHymnID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjHymn As clsHymn
Dim lcolHymns As New System.Collections.Generic.List(Of clsHymn)