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

38
clsPublisher.vb
View File

@@ -17,12 +17,12 @@ Public Class clsPublisher
End Sub
Public Sub New(ByVal lstrPublisherName As String, ByVal lstrPublisherStreamingAllowed As String)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_publisher_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherName As New SqlClient.SqlParameter
Dim prmPublisherName As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherName.ParameterName = "@publisher_name"
prmPublisherName.SqlDbType = SqlDbType.VarChar
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
@@ -50,12 +50,12 @@ Public Class clsPublisher
Public Sub New(ByVal lguidPublisherID As Guid)
mguidPublisherID = lguidPublisherID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_publisher"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherID As New SqlClient.SqlParameter
Dim prmPublisherID As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherID.ParameterName = "@publisher_id"
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
'prmPublisherID.Size = 5
@@ -91,12 +91,12 @@ Public Class clsPublisher
Try
MyGlobals.RemoveCachedObject(Me.PublisherID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_publisher"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherID As New SqlClient.SqlParameter
Dim prmPublisherID As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherID.ParameterName = "@publisher_id"
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
'prmPublisherID.Size = 5
@@ -120,26 +120,26 @@ Public Class clsPublisher
MyGlobals.AddCachedObject(Me, Me.PublisherID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_publisher"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherID As New SqlClient.SqlParameter
Dim prmPublisherID As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherID.ParameterName = "@publisher_id"
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
'prmPublisherID.Size = 5
prmPublisherID.Value = mguidPublisherID
ldbcmdCommand.Parameters.Add(prmPublisherID)
' Set up parameter for stored procedure
Dim prmPublisherName As New SqlClient.SqlParameter
Dim prmPublisherName As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherName.ParameterName = "@publisher_name"
prmPublisherName.SqlDbType = SqlDbType.VarChar
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
prmPublisherName.Value = mstrPublisherName
ldbcmdCommand.Parameters.Add(prmPublisherName)
Dim prmPublisherStreamingAllowed As New SqlClient.SqlParameter
Dim prmPublisherStreamingAllowed As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherStreamingAllowed.ParameterName = "@publisher_streaming_allowed"
prmPublisherStreamingAllowed.SqlDbType = SqlDbType.VarChar
prmPublisherStreamingAllowed.Size = MyGlobals.PUBLISHER_STREAMING_ALLOWED_SIZE
@@ -153,26 +153,26 @@ Public Class clsPublisher
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_publisher"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherID As New SqlClient.SqlParameter
Dim prmPublisherID As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherID.ParameterName = "@publisher_id"
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
'prmPublisherID.Size = 5
prmPublisherID.Value = mguidPublisherID
ldbcmdCommand.Parameters.Add(prmPublisherID)
' Set up parameter for stored procedure
Dim prmPublisherName As New SqlClient.SqlParameter
Dim prmPublisherName As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherName.ParameterName = "@publisher_name"
prmPublisherName.SqlDbType = SqlDbType.VarChar
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
prmPublisherName.Value = mstrPublisherName
ldbcmdCommand.Parameters.Add(prmPublisherName)
Dim prmPublisherStreamingAllowed As New SqlClient.SqlParameter
Dim prmPublisherStreamingAllowed As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherStreamingAllowed.ParameterName = "@publisher_streaming_allowed"
prmPublisherStreamingAllowed.SqlDbType = SqlDbType.VarChar
prmPublisherStreamingAllowed.Size = MyGlobals.PUBLISHER_STREAMING_ALLOWED_SIZE
@@ -195,12 +195,12 @@ Public Class clsPublisher
Public Function DuplicateExists(ByVal lstrPublisherNameToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_publisher_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherName As New SqlClient.SqlParameter
Dim prmPublisherName As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherName.ParameterName = "@publisher_name"
prmPublisherName.SqlDbType = SqlDbType.VarChar
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
@@ -310,12 +310,12 @@ Public Class clsPublisher
lstrReferencedByString = ""
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_publisher_isreferenced"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmPublisherID As New SqlClient.SqlParameter
Dim prmPublisherID As New Microsoft.Data.SqlClient.SqlParameter
prmPublisherID.ParameterName = "@publisher_id"
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
'prmPublisherID.Size = 5
@@ -360,7 +360,7 @@ Public Class clsPublisher
Public Shared Function GetAllPublishers() As System.Collections.Generic.List(Of clsPublisher)
Dim lguidPublisherID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjPublisher As clsPublisher
Dim lcolPublishers As New System.Collections.Generic.List(Of clsPublisher)