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

34
clsComposer.vb
View File

@@ -15,12 +15,12 @@ Public Class clsComposer
End Sub
Public Sub New(ByVal lstrComposerName As String)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_composer_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmComposerName As New SqlClient.SqlParameter
Dim prmComposerName As New Microsoft.Data.SqlClient.SqlParameter
prmComposerName.ParameterName = "@composer_name"
prmComposerName.SqlDbType = SqlDbType.VarChar
prmComposerName.Size = MyGlobals.COMPOSER_NAME_SIZE
@@ -48,12 +48,12 @@ Public Class clsComposer
Public Sub New(ByVal lguidComposerID As Guid)
mguidComposerID = lguidComposerID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_composer"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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
@@ -89,12 +89,12 @@ Public Class clsComposer
Try
MyGlobals.RemoveCachedObject(Me.ComposerID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_composer"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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
@@ -119,19 +119,19 @@ Public Class clsComposer
MyGlobals.AddCachedObject(Me, Me.ComposerID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_composer"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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
prmComposerID.Value = mguidComposerID
ldbcmdCommand.Parameters.Add(prmComposerID)
' Set up parameter for stored procedure
Dim prmComposerName As New SqlClient.SqlParameter
Dim prmComposerName As New Microsoft.Data.SqlClient.SqlParameter
prmComposerName.ParameterName = "@composer_name"
prmComposerName.SqlDbType = SqlDbType.VarChar
prmComposerName.Size = MyGlobals.COMPOSER_NAME_SIZE
@@ -145,19 +145,19 @@ Public Class clsComposer
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_composer"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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
prmComposerID.Value = mguidComposerID
ldbcmdCommand.Parameters.Add(prmComposerID)
' Set up parameter for stored procedure
Dim prmComposerName As New SqlClient.SqlParameter
Dim prmComposerName As New Microsoft.Data.SqlClient.SqlParameter
prmComposerName.ParameterName = "@composer_name"
prmComposerName.SqlDbType = SqlDbType.VarChar
prmComposerName.Size = MyGlobals.COMPOSER_NAME_SIZE
@@ -180,12 +180,12 @@ Public Class clsComposer
Public Function DuplicateExists(ByVal lstrComposerNameToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_composer_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmComposerName As New SqlClient.SqlParameter
Dim prmComposerName As New Microsoft.Data.SqlClient.SqlParameter
prmComposerName.ParameterName = "@composer_name"
prmComposerName.SqlDbType = SqlDbType.VarChar
prmComposerName.Size = MyGlobals.COMPOSER_NAME_SIZE
@@ -283,12 +283,12 @@ Public Class clsComposer
lstrReferencedByString = ""
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_composer_isreferenced"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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
@@ -333,7 +333,7 @@ Public Class clsComposer
Public Shared Function GetAllComposers() As System.Collections.Generic.List(Of clsComposer)
Dim lguidComposerID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjComposer As clsComposer
Dim lcolComposers As New System.Collections.Generic.List(Of clsComposer)