Update to .Net 10/SQL 2025

modGenerateWebSite.vb

@@ -76,7 +76,7 @@ Module modGenerateWebSite
             Dim lintTuneCountOnPage As Integer
             Dim lintPageCount As Integer
 
-            Dim ldbcmdHymnTuneCommand As New SqlClient.SqlCommand
+            Dim ldbcmdHymnTuneCommand As New Microsoft.Data.SqlClient.SqlCommand
 
             ldbcmdHymnTuneCommand.CommandText = "sel_hymn_tune_all"
 
@@ -101,7 +101,7 @@ Module modGenerateWebSite
 
                 Dim strHymnTuneBookmark As String = "Tune" & lintTuneCountOnPage
 
-                Dim ldbcmdHymnTuneNameCommand As New SqlClient.SqlCommand
+                Dim ldbcmdHymnTuneNameCommand As New Microsoft.Data.SqlClient.SqlCommand
 
                 objXMLWriter.WriteStartElement("HymnTune")
 
@@ -271,7 +271,7 @@ Module modGenerateWebSite
 
     Private Sub GenerateHymnTuneBasedPage(ByVal lstrOrganLitWebPath As String, ByVal lstrXSLPath As String, ByVal lstrXMLFileName As String)
         Try
-            Dim ldbcmdHymnTuneCommand As New SqlClient.SqlCommand
+            Dim ldbcmdHymnTuneCommand As New Microsoft.Data.SqlClient.SqlCommand
 
             ldbcmdHymnTuneCommand.CommandText = "sel_hymn_tune_name_distinct_id"
 
@@ -287,7 +287,7 @@ Module modGenerateWebSite
 
                 Dim strHymnTuneBookmark As String = "Tune" & strHymnTuneID
 
-                Dim ldbcmdHymnTuneNameCommand As New SqlClient.SqlCommand
+                Dim ldbcmdHymnTuneNameCommand As New Microsoft.Data.SqlClient.SqlCommand
 
                 Dim xslt As New System.Xml.Xsl.XslCompiledTransform
                 xslt.Load(lstrXSLPath & "OrganLitHymnTuneBasedByTune.xsl")
@@ -423,7 +423,7 @@ Module modGenerateWebSite
 
     '    lstrOrganLitWebPath = "C:\Documents and Settings\Jon\My Documents\JReuss Web page\OrganLit\"
 
-    '    Dim ldbcmdHymnTuneCommand As New SqlClient.SqlCommand
+    '    Dim ldbcmdHymnTuneCommand As New Microsoft.Data.SqlClient.SqlCommand
 
     '    ldbcmdHymnTuneCommand.CommandText = "sel_hymn_tune_all"
 
@@ -455,12 +455,12 @@ Module modGenerateWebSite
 
     '        WriteBookmarkTarget(objOutputFile, strHymnTuneBookmark)
 
-    '        Dim ldbcmdHymnTuneNameCommand As New SqlClient.SqlCommand
+    '        Dim ldbcmdHymnTuneNameCommand As New Microsoft.Data.SqlClient.SqlCommand
 
     '        ldbcmdHymnTuneNameCommand.CommandText = "sel_hymn_tune_name_by_hymn_tune_id"
 
     '        ' Set up parameter for stored procedure 
-    '        Dim prmHymnTuneNameID As New SqlClient.SqlParameter
+    '        Dim prmHymnTuneNameID As New Microsoft.Data.SqlClient.SqlParameter
     '        prmHymnTuneNameID.ParameterName = "@hymn_tune_id"
     '        prmHymnTuneNameID.SqlDbType = SqlDbType.UniqueIdentifier
     '        'prmHymnTuneNameID.Size = 5