dotnet · gewarren · Sep 24, 2024 · Sep 23, 2024 · Sep 24, 2024 · Sep 24, 2024
@@ -136,7 +136,7 @@ Module Module1
         items(2) = movie1
         items(3) = movie2
 
-        ' Create a table with a schema that matches that of the query results.            
+        ' Create a table with a schema that matches that of the query results.
         Dim table As DataTable = New DataTable()
         table.Columns.Add("Price", GetType(Integer))
         table.Columns.Add("Genre", GetType(String))
@@ -257,11 +257,10 @@ Module Module1
         Try
             Dim connectionString As String
 
-            connectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;" & _
-            "Integrated Security=true;"
+            connectionString = "..."
 
-            ' Create a new adapter and give it a query to fetch sales order, contact, 
-            ' address, and product information for sales in the year 2002. Point connection 
+            ' Create a new adapter and give it a query to fetch sales order, contact,
+            ' address, and product information for sales in the year 2002. Point connection
             ' information to the configuration setting "AdventureWorks".
             Dim da = New SqlDataAdapter( _
             "SELECT SalesOrderID, ContactID, OrderDate, OnlineOrderFlag, " & _
@@ -408,7 +407,7 @@ Public Class ObjectShredder(Of T)
     Private _pi As PropertyInfo()
     Private _type As Type
 
-    ' Constructor 
+    ' Constructor
     Public Sub New()
         Me._type = GetType(T)
         Me._fi = Me._type.GetFields
@@ -445,11 +444,11 @@ Public Class ObjectShredder(Of T)
 
     ' Summary:           Loads a DataTable from a sequence of objects.
     ' source parameter:  The sequence of objects to load into the DataTable.</param>
-    ' table parameter:   The input table. The schema of the table must match that 
-    '                    the type T.  If the table is null, a new table is created  
-    '                    with a schema created from the public properties and fields 
+    ' table parameter:   The input table. The schema of the table must match that
+    '                    the type T.  If the table is null, a new table is created
+    '                    with a schema created from the public properties and fields
     '                    of the type T.
-    ' options parameter: Specifies how values from the source sequence will be applied to 
+    ' options parameter: Specifies how values from the source sequence will be applied to
     '                    existing rows in the table.
     ' Returns:           A DataTable created from the source sequence.
 
@@ -515,7 +514,7 @@ Public Class ObjectShredder(Of T)
     End Function
 
     Public Function ExtendTable(ByVal table As DataTable, ByVal type As Type) As DataTable
-        ' Extend the table schema if the input table was null or if the value 
+        ' Extend the table schema if the input table was null or if the value
         ' in the sequence is derived from type T.
         Dim f As FieldInfo
         Dim p As PropertyInfo

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
@@ -12,11 +12,17 @@
     <AssemblyName>DataViewSamplesVB</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8.1</TargetFrameworkVersion>
     <OptionExplicit>On</OptionExplicit>
     <OptionCompare>Binary</OptionCompare>
     <OptionStrict>Off</OptionStrict>
     <OptionInfer>On</OptionInfer>
+    <FileUpgradeFlags>
+    </FileUpgradeFlags>
+    <UpgradeBackupLocation>
+    </UpgradeBackupLocation>
+    <OldToolsVersion>3.5</OldToolsVersion>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DebugSymbols>true</DebugSymbols>
@@ -25,7 +31,8 @@
     <DefineTrace>true</DefineTrace>
     <OutputPath>bin\Debug\</OutputPath>
     <DocumentationFile>DataViewSamplesVB.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>
@@ -34,7 +41,8 @@
     <Optimize>true</Optimize>
     <OutputPath>bin\Release\</OutputPath>
     <DocumentationFile>DataViewSamplesVB.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
@@ -77,6 +85,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -102,6 +111,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.config" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

@@ -25,13 +25,10 @@ Public Class Form1
     Private Shared Sub FillDataSet(ByVal ds As DataSet)
         Dim connectionString As String
 
-        'connectionString = "Data Source=localhost\SQLEXPRESS;Initial Catalog=AdventureWorks;" & _
-        '"Integrated Security=true;"
-        connectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;" _
-                & "Integrated Security=true;"
+        connectionString = "..."
 
-        ' Create a new adapter and give it a query to fetch sales order, contact, 
-        ' address, and product information for sales in the year 2002. Point connection 
+        ' Create a new adapter and give it a query to fetch sales order, contact,
+        ' address, and product information for sales in the year 2002. Point connection
         ' information to the configuration setting "AdventureWorks".
         Dim da = New SqlDataAdapter( _
         "SELECT SalesOrderID, ContactID, OrderDate, OnlineOrderFlag, " & _
@@ -556,7 +553,7 @@ Public Class Form1
         bindingSource1.DataSource = boundView
 
         ' <SnippetQueryDataView1>
-        ' Create a table from the bound view representing a query of 
+        ' Create a table from the bound view representing a query of
         ' available products.
         Dim view As DataView = CType(bindingSource1.DataSource, DataView)
         Dim productsTable As DataTable = CType(view.Table, DataTable)

@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8.1"/></startup></configuration>
@@ -25,7 +25,7 @@ Public Class Form1
         contactDataGridView.DataSource = contactBindingSource
 
         ' Create a LinqDataView from a LINQ to DataSet query and bind it
-        ' to the Windows forms control.
+        ' to the Windows Forms control.
         Dim contactQuery = _
             From row In dataSet.Tables("Contact").AsEnumerable() _
             Where row.Field(Of String)("EmailAddress") <> Nothing _

@@ -148,8 +148,7 @@ Module Module1
         Try
             Dim connectionString As String
 
-            connectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;" & _
-            "Integrated Security=true;"
+            connectionString = "..."
 
             ' Create a new adapter and give it a query to fetch sales order, contact,
             ' address, and product information for sales in the year 2002. Point connection

@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net8.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.SqlClient" Version="4.8.6" />
+  </ItemGroup>
+
+</Project>
@@ -28,16 +28,16 @@ Module Module1
                "FROM Production.Product;", sourceConnection)
             Dim reader As SqlDataReader = commandSourceData.ExecuteReader
 
-            ' Open the destination connection. In the real world you would 
-            ' not use SqlBulkCopy to move data from one table to the other   
+            ' Open the destination connection. In the real world you would
+            ' not use SqlBulkCopy to move data from one table to the other
             ' in the same database. This is for demonstration purposes only.
             Using destinationConnection As SqlConnection = _
                 New SqlConnection(connectionString)
                 destinationConnection.Open()
 
-                ' Set up the bulk copy object. 
-                ' The column positions in the source data reader 
-                ' match the column positions in the destination table, 
+                ' Set up the bulk copy object.
+                ' The column positions in the source data reader
+                ' match the column positions in the destination table,
                 ' so there is no need to map columns.
                 Using bulkCopy As SqlBulkCopy = _
                   New SqlBulkCopy(destinationConnection)
@@ -73,11 +73,7 @@ Module Module1
     End Sub
 
     Private Function GetConnectionString() As String
-        ' To avoid storing the sourceConnection string in your code, 
-        ' you can retrieve it from a configuration file. 
-        Return "Data Source=(local);" & _
-            "Integrated Security=true;" & _
-            "Initial Catalog=AdventureWorks;"
+        Throw New NotImplementedException()
     End Function
 End Module
 ' </Snippet1>