ropc fixes in VB files

dotnet · Oct 1, 2024 · eabcbb4 · eabcbb4
1 parent 4b60f2c
commit eabcbb4
Show file tree

Hide file tree

Showing 69 changed files with 410 additions and 400 deletions.
diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcCommand/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcCommand/VB/source.vb
@@ -6,11 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-    End Sub
-
     ' <Snippet1>
     Public Sub InsertRow(ByVal connectionString As String, _
         ByVal insertSQL As String)

diff --git a/...sic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/Project.vbproj b/...sic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...ualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/source.vb b/...ualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/source.vb
@@ -6,13 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        Dim connectionString As String
-
-        connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        Call ExecuteTransaction(connectionString)
-    End Sub
-
     ' <Snippet1>
     Public Sub ExecuteTransaction(ByVal connectionString As String)
 

diff --git a/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/Project.vbproj b/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/source.vb b/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/source.vb
@@ -6,13 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        Dim connectionString As String
-
-        connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        Call ExecuteTransaction(connectionString)
-    End Sub
-
     ' <Snippet1>
     Public Sub ExecuteTransaction(ByVal connectionString As String)
 
@@ -35,10 +28,10 @@ Module Module1
                 command.Transaction = transaction
 
                 ' Execute the commands.
-                command.CommandText = _
+                command.CommandText =
                     "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"
                 command.ExecuteNonQuery()
-                command.CommandText = _
+                command.CommandText =
                     "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"
                 command.ExecuteNonQuery()
 

diff --git a/...ts/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/Project.vbproj b/...ts/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/source.vb
@@ -2,13 +2,6 @@
 
 Module Module1
 
-    Sub Main()
-        Dim connectionString As String
-
-        connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        Call CreateOdbcConnection(connectionString)
-    End Sub
-
     ' <Snippet1>
     Private Sub CreateOdbcConnection(ByVal connectionString As String)
         Using connection As New OdbcConnection(connectionString)
@@ -20,7 +13,7 @@ Module Module1
 
             ' The connection is automatically closed
             ' at the end of the Using block.
-        End Using 
+        End Using
     End Sub
     ' </Snippet1>
 

diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection/VB/source.vb
@@ -2,12 +2,6 @@
 
 Module Module1
 
-    Sub Main()
-        Dim connectionString As String
-        connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        Call InsertRow(connectionString)
-    End Sub
-
     ' <Snippet1>
     Private Sub InsertRow(ByVal connectionString As String)
 
@@ -20,10 +14,10 @@ Module Module1
             connection.Open()
             command.ExecuteNonQuery()
 
-            ' The connection is automatically closed at 
+            ' The connection is automatically closed at
             ' the end of the Using block.
         End Using
     End Sub
     ' </Snippet1>
 
-End Module
+End Module
diff --git a/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/Project.vbproj b/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/source.vb b/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/Project.vbproj b/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/source.vb b/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...sic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/Project.vbproj b/...sic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...ualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/source.vb b/...ualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/Project.vbproj b/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/source.vb b/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/Project.vbproj b/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/source.vb b/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/Project.vbproj b/...ic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/source.vb b/...albasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/Project.vbproj b/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/source.vb b/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/Project.vbproj b/...basic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/source.vb b/...isualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/source.vb
@@ -6,12 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-        'dim x as String="DRIVER={SQL Server};SERVER=MyServer;Trusted_connection=yes;DATABASE=Northwind;"
-    End Sub
-
     ' <Snippet1>
     Public Function CreateDataAdapter( _
         ByVal connection As OdbcConnection) As OdbcDataAdapter

diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter/VB/Project.vbproj
@@ -0,0 +1,12 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net4.8</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Data.Odbc" />
+  </ItemGroup>
+
+</Project>
diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter/VB/source.vb
@@ -6,11 +6,6 @@ Imports System.Data.Odbc
 
 Module Module1
 
-    Sub Main()
-        'Dim connectionString As String = _
-        '"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Samples\Northwind.mdb"
-    End Sub
-
     ' <Snippet1>
     Public Function GetDataSetFromAdapter( _
         ByVal dataSet As DataSet, ByVal connectionString As String, _