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

48
clsWork.vb
View File

@@ -43,12 +43,12 @@ Public Class clsWork
Public Sub New(ByVal guidWorkID As Guid)
'm_guidWorkID = guidWorkID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_work"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmWorkID As New SqlClient.SqlParameter
Dim prmWorkID As New Microsoft.Data.SqlClient.SqlParameter
prmWorkID.ParameterName = "@work_id"
prmWorkID.SqlDbType = SqlDbType.UniqueIdentifier
'prmWorkID.Size = 5
@@ -134,12 +134,12 @@ Public Class clsWork
Try
MyGlobals.RemoveCachedObject(Me.WorkID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_work"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmWorkID As New SqlClient.SqlParameter
Dim prmWorkID As New Microsoft.Data.SqlClient.SqlParameter
prmWorkID.ParameterName = "@work_id"
prmWorkID.SqlDbType = SqlDbType.UniqueIdentifier
'prmWorkID.Size = 5
@@ -184,19 +184,19 @@ Public Class clsWork
MyGlobals.AddCachedObject(Me, Me.WorkID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_work"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmWorkID As New SqlClient.SqlParameter
Dim prmWorkID As New Microsoft.Data.SqlClient.SqlParameter
prmWorkID.ParameterName = "@work_id"
prmWorkID.SqlDbType = SqlDbType.UniqueIdentifier
'prmWorkID.Size = 5
prmWorkID.Value = m_guidWorkID
ldbcmdCommand.Parameters.Add(prmWorkID)
' Set up parameter for stored procedure
Dim prmComposerID As New SqlClient.SqlParameter
Dim prmComposerID As New Microsoft.Data.SqlClient.SqlParameter
prmComposerID.ParameterName = "@composer_id"
prmComposerID.SqlDbType = SqlDbType.UniqueIdentifier
'prmComposerID.Size = 5
@@ -207,7 +207,7 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmComposerID)
' Set up parameter for stored procedure
Dim prmBookID As New SqlClient.SqlParameter
Dim prmBookID As New Microsoft.Data.SqlClient.SqlParameter
prmBookID.ParameterName = "@book_id"
prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
'prmBookID.Size = 5
@@ -218,28 +218,28 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmBookID)
' Set up parameter for stored procedure
Dim prmPageNumber As New SqlClient.SqlParameter
Dim prmPageNumber As New Microsoft.Data.SqlClient.SqlParameter
prmPageNumber.ParameterName = "@page_number"
prmPageNumber.SqlDbType = SqlDbType.Int
'prmPageNumber.Size = 5
prmPageNumber.Value = m_intPageNumber
ldbcmdCommand.Parameters.Add(prmPageNumber)
' Set up parameter for stored procedure
Dim prmWorkName As New SqlClient.SqlParameter
Dim prmWorkName As New Microsoft.Data.SqlClient.SqlParameter
prmWorkName.ParameterName = "@work_name"
prmWorkName.SqlDbType = SqlDbType.VarChar
prmWorkName.Size = MyGlobals.WORK_NAME_SIZE
prmWorkName.Value = m_strWorkName
ldbcmdCommand.Parameters.Add(prmWorkName)
' Set up parameter for stored procedure
Dim prmOpusInfo As New SqlClient.SqlParameter
Dim prmOpusInfo As New Microsoft.Data.SqlClient.SqlParameter
prmOpusInfo.ParameterName = "@opus_info"
prmOpusInfo.SqlDbType = SqlDbType.VarChar
prmOpusInfo.Size = MyGlobals.OPUS_INFO_SIZE
prmOpusInfo.Value = m_strOpusInfo
ldbcmdCommand.Parameters.Add(prmOpusInfo)
' Set up parameter for stored procedure
Dim prmInstrumentationID As New SqlClient.SqlParameter
Dim prmInstrumentationID As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationID.ParameterName = "@instrumentation_id"
prmInstrumentationID.SqlDbType = SqlDbType.UniqueIdentifier
'prmInstrumentationID.Size = MyGlobals.INSTRUMENTATION_SIZE
@@ -250,7 +250,7 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmInstrumentationID)
' 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
@@ -268,19 +268,19 @@ Public Class clsWork
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_work"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmWorkID As New SqlClient.SqlParameter
Dim prmWorkID As New Microsoft.Data.SqlClient.SqlParameter
prmWorkID.ParameterName = "@work_id"
prmWorkID.SqlDbType = SqlDbType.UniqueIdentifier
'prmWorkID.Size = 5
prmWorkID.Value = m_guidWorkID
ldbcmdCommand.Parameters.Add(prmWorkID)
' Set up parameter for stored procedure
Dim prmComposerID As New SqlClient.SqlParameter
Dim prmComposerID As New Microsoft.Data.SqlClient.SqlParameter
prmComposerID.ParameterName = "@composer_id"
prmComposerID.SqlDbType = SqlDbType.UniqueIdentifier
'prmComposerID.Size = 5
@@ -291,7 +291,7 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmComposerID)
' Set up parameter for stored procedure
Dim prmBookID As New SqlClient.SqlParameter
Dim prmBookID As New Microsoft.Data.SqlClient.SqlParameter
prmBookID.ParameterName = "@book_id"
prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
'prmBookID.Size = 5
@@ -302,28 +302,28 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmBookID)
' Set up parameter for stored procedure
Dim prmPageNumber As New SqlClient.SqlParameter
Dim prmPageNumber As New Microsoft.Data.SqlClient.SqlParameter
prmPageNumber.ParameterName = "@page_number"
prmPageNumber.SqlDbType = SqlDbType.Int
'prmPageNumber.Size = 5
prmPageNumber.Value = m_intPageNumber
ldbcmdCommand.Parameters.Add(prmPageNumber)
' Set up parameter for stored procedure
Dim prmWorkName As New SqlClient.SqlParameter
Dim prmWorkName As New Microsoft.Data.SqlClient.SqlParameter
prmWorkName.ParameterName = "@work_name"
prmWorkName.SqlDbType = SqlDbType.VarChar
prmWorkName.Size = MyGlobals.WORK_NAME_SIZE
prmWorkName.Value = m_strWorkName
ldbcmdCommand.Parameters.Add(prmWorkName)
' Set up parameter for stored procedure
Dim prmOpusInfo As New SqlClient.SqlParameter
Dim prmOpusInfo As New Microsoft.Data.SqlClient.SqlParameter
prmOpusInfo.ParameterName = "@opus_info"
prmOpusInfo.SqlDbType = SqlDbType.VarChar
prmOpusInfo.Size = MyGlobals.OPUS_INFO_SIZE
prmOpusInfo.Value = m_strOpusInfo
ldbcmdCommand.Parameters.Add(prmOpusInfo)
' Set up parameter for stored procedure
Dim prmInstrumentationID As New SqlClient.SqlParameter
Dim prmInstrumentationID As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationID.ParameterName = "@instrumentation_id"
prmInstrumentationID.SqlDbType = SqlDbType.UniqueIdentifier
'prmInstrumentationID.Size = MyGlobals.INSTRUMENTATION_SIZE
@@ -334,7 +334,7 @@ Public Class clsWork
End If
ldbcmdCommand.Parameters.Add(prmInstrumentationID)
' 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
@@ -353,7 +353,7 @@ Public Class clsWork
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
@@ -640,7 +640,7 @@ Public Class clsWork
clsBook.AddAllBooksToCache()
Dim lguidWorkID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjWork As clsWork
Dim lcolWorks As New System.Collections.Generic.List(Of clsWork)