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
clsInstrumentation.vb
View File

@@ -15,12 +15,12 @@ Public Class clsInstrumentation
End Sub
Public Sub New(ByVal lstrInstrumentationName As String)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_instrumentation_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmInstrumentationName As New SqlClient.SqlParameter
Dim prmInstrumentationName As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationName.ParameterName = "@instrumentation_name"
prmInstrumentationName.SqlDbType = SqlDbType.VarChar
prmInstrumentationName.Size = MyGlobals.INSTRUMENTATION_NAME_SIZE
@@ -48,12 +48,12 @@ Public Class clsInstrumentation
Public Sub New(ByVal lguidInstrumentationID As Guid)
mguidInstrumentationID = lguidInstrumentationID
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_instrumentation"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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 = 5
@@ -88,12 +88,12 @@ Public Class clsInstrumentation
Try
MyGlobals.RemoveCachedObject(Me.InstrumentationID.ToString)
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "del_instrumentation"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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 = 5
@@ -118,19 +118,19 @@ Public Class clsInstrumentation
MyGlobals.AddCachedObject(Me, Me.InstrumentationID.ToString)
If m_blnObjectAlreadyPersisted Then
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "upd_instrumentation"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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 = 5
prmInstrumentationID.Value = mguidInstrumentationID
ldbcmdCommand.Parameters.Add(prmInstrumentationID)
' Set up parameter for stored procedure
Dim prmInstrumentationName As New SqlClient.SqlParameter
Dim prmInstrumentationName As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationName.ParameterName = "@instrumentation_name"
prmInstrumentationName.SqlDbType = SqlDbType.VarChar
prmInstrumentationName.Size = MyGlobals.INSTRUMENTATION_NAME_SIZE
@@ -144,19 +144,19 @@ Public Class clsInstrumentation
Return False
End If
Else
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "ins_instrumentation"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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 = 5
prmInstrumentationID.Value = mguidInstrumentationID
ldbcmdCommand.Parameters.Add(prmInstrumentationID)
' Set up parameter for stored procedure
Dim prmInstrumentationName As New SqlClient.SqlParameter
Dim prmInstrumentationName As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationName.ParameterName = "@instrumentation_name"
prmInstrumentationName.SqlDbType = SqlDbType.VarChar
prmInstrumentationName.Size = MyGlobals.INSTRUMENTATION_NAME_SIZE
@@ -179,12 +179,12 @@ Public Class clsInstrumentation
Public Function DuplicateExists(ByVal lstrInstrumentationNameToCheck As String) As Boolean
Try
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_instrumentation_by_name"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' Set up parameter for stored procedure
Dim prmInstrumentationName As New SqlClient.SqlParameter
Dim prmInstrumentationName As New Microsoft.Data.SqlClient.SqlParameter
prmInstrumentationName.ParameterName = "@instrumentation_name"
prmInstrumentationName.SqlDbType = SqlDbType.VarChar
prmInstrumentationName.Size = MyGlobals.INSTRUMENTATION_NAME_SIZE
@@ -282,12 +282,12 @@ Public Class clsInstrumentation
lstrReferencedByString = ""
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
ldbcmdCommand.CommandText = "sel_instrumentation_isreferenced"
ldbcmdCommand.CommandType = CommandType.StoredProcedure
' 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 = 5
@@ -332,7 +332,7 @@ Public Class clsInstrumentation
Public Shared Function GetAllInstrumentations() As System.Collections.Generic.List(Of clsInstrumentation)
Dim lguidInstrumentationID As Guid
Dim ldbcmdCommand As New SqlClient.SqlCommand
Dim ldbcmdCommand As New Microsoft.Data.SqlClient.SqlCommand
Dim lobjInstrumentation As clsInstrumentation
Dim lcolInstrumentations As New System.Collections.Generic.List(Of clsInstrumentation)