diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcCommand/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcCommand/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcCommand/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + 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 index 08d6e08525b..f234389233b 100644 --- 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 - ' Public Sub InsertRow(ByVal connectionString As String, _ ByVal insertSQL As String) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/source.vb index 144197cbd47..f479299fa81 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Sub ExecuteTransaction(ByVal connectionString As String) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/source.vb index 144197cbd47..824def31958 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.BeginTransaction1/VB/source.vb +++ b/snippets/visualbasic/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 - ' 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/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection.Close/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + 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 index 34d0928a414..78ee6d5f9e5 100644 --- 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 - ' 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 ' 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 new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcConnection/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + 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 index a97befb4d1c..bd92d77f0c0 100644 --- 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 - ' 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 ' -End Module \ No newline at end of file +End Module diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.DeleteCommand/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.InsertCommand/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter1/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter2/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.OdbcDataAdapter3/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.SelectCommand/VB/source.vb +++ b/snippets/visualbasic/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 - ' Public Function CreateDataAdapter( _ ByVal connection As OdbcConnection) As OdbcDataAdapter diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/source.vb index f915f44057d..4066e50adb1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter.UpdateCommand/VB/source.vb +++ b/snippets/visualbasic/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 - ' 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 new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcDataAdapter/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + 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 index 4c366399468..77928cc23eb 100644 --- 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 - ' Public Function GetDataSetFromAdapter( _ ByVal dataSet As DataSet, ByVal connectionString As String, _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/Project.vbproj new file mode 100644 index 00000000000..2026ecb0ada --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/source.vb index 32e5af7efa6..fbd8b7f1871 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OdbcParameter/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 - ' Public Function GetDataSetFromAdapter( _ ByVal dataSet As DataSet, ByVal connectionString As String, _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.ExecuteNonQuery Example/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.ExecuteNonQuery Example/Project.vbproj new file mode 100644 index 00000000000..ccdf2c3dbe0 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.ExecuteNonQuery Example/Project.vbproj @@ -0,0 +1,12 @@ + + + + Exe + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/Project.vbproj new file mode 100644 index 00000000000..546c755387d --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/source.vb index fff8d1f636c..adf1857a6f4 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbCommand.Prepare Example/VB/source.vb @@ -5,13 +5,6 @@ Imports System.Data.OleDb Module Module1 - Sub Main() - Dim connectionString As String = "Provider=sqloledb;Data Source=(local);Initial Catalog=Northwind;" _ - & "Integrated Security=SSPI" - OleDbCommandPrepare(connectionString) - Console.ReadLine() - End Sub - ' Public Sub OleDbCommandPrepare(ByVal connectionString As String) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/Project.vbproj new file mode 100644 index 00000000000..546c755387d --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/source.vb index fe0888cb04e..a01b096afbb 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbDataReader.GetOrdinal/VB/source.vb @@ -7,11 +7,6 @@ Imports System.IO Module Module1 - Sub Main() - Dim x As String = "Provider=SQLOLEDB;Data Source=(local);Integrated Security=SSPI;Initial Catalog=Northwind" - ReadData(x) - End Sub - ' Public Sub ReadData(ByVal connectionString As String) Dim queryString As String = "SELECT DISTINCT CustomerID FROM Orders" diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/Project.vbproj new file mode 100644 index 00000000000..546c755387d --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/source.vb index d725273c0ba..659f24c69d1 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData OleDbParameter Example/VB/source.vb @@ -7,10 +7,6 @@ Imports System.IO Module Module1 - Sub Main() - ' Dim x As String = "Provider=SQLOLEDB;Data Source=(local);Integrated Security=SSPI;Initial Catalog=Northwind" - End Sub - ' Public Function GetDataSetFromAdapter( _ ByVal dataSet As DataSet, ByVal connectionString As String, _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/Project.vbproj new file mode 100644 index 00000000000..484c85eac09 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/source.vb index 915e6cf365f..f903942d4ab 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand Example/VB/source.vb @@ -6,12 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim str As String = "Data Source=(local);Initial Catalog=Northwind;" _ - & "Integrated Security=SSPI;" - ReadOrderData(str) - End Sub - ' Public Sub ReadOrderData(ByVal connectionString As String) Dim queryString As String = _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Connection Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Connection Example/VB/Project.vbproj new file mode 100644 index 00000000000..84455e1397c --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Connection Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Exe + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteNonQuery Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteNonQuery Example/VB/Project.vbproj new file mode 100644 index 00000000000..84455e1397c --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteNonQuery Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Exe + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteXmlReader/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteXmlReader/VB/Project.vbproj new file mode 100644 index 00000000000..84455e1397c --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.ExecuteXmlReader/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Exe + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Prepare/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Prepare/VB/Project.vbproj new file mode 100644 index 00000000000..84455e1397c --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlCommand.Prepare/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Exe + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/Project.vbproj index 9de5f49321c..b8fcb56ef9d 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/Project.vbproj +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/Project.vbproj @@ -1,7 +1,7 @@ - Exe + Library net8.0 diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/source.vb index 672612b5420..cade2cf5c85 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction Example/VB/source.vb @@ -6,13 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim connectionString As String = _ - "Persist Security Info=False;Integrated Security=SSPI;database=Northwind;server=(local)" - ExecuteSqlTransaction(connectionString) - Console.ReadLine() - - End Sub ' Private Sub ExecuteSqlTransaction(ByVal connectionString As String) Using connection As New SqlConnection(connectionString) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/Project.vbproj new file mode 100644 index 00000000000..484c85eac09 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/source.vb index 912cfe818e7..a6ea09aa1fc 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction1 Example/VB/source.vb @@ -6,13 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim connectionString As String = _ - "Persist Security Info=False;Integrated Security=SSPI;database=Northwind;server=(local)" - ExecuteSqlTransaction(connectionString) - Console.ReadLine() - - End Sub ' Private Sub ExecuteSqlTransaction(ByVal connectionString As String) Using connection As New SqlConnection(connectionString) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/Project.vbproj index 9de5f49321c..b8fcb56ef9d 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/Project.vbproj +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/Project.vbproj @@ -1,7 +1,7 @@ - Exe + Library net8.0 diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/source.vb index 0cc04ffecee..35e474a1937 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction2 Example/VB/source.vb @@ -6,13 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim connectionString As String = _ - "Persist Security Info=False;Integrated Security=SSPI;database=Northwind;server=(local)" - ExecuteSqlTransaction(connectionString) - Console.ReadLine() - - End Sub ' Private Sub ExecuteSqlTransaction(ByVal connectionString As String) Using connection As New SqlConnection(connectionString) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/Project.vbproj index 9de5f49321c..b8fcb56ef9d 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/Project.vbproj +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/Project.vbproj @@ -1,7 +1,7 @@ - Exe + Library net8.0 diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/source.vb index 1ef6991cc1f..458e3b99d52 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlConnection.BeginTransaction3 Example/VB/source.vb @@ -6,13 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim connectionString As String = _ - "Persist Security Info=False;Integrated Security=SSPI;database=Northwind;server=(local)" - ExecuteSqlTransaction(connectionString) - Console.ReadLine() - - End Sub ' Private Sub ExecuteSqlTransaction(ByVal connectionString As String) Using connection As New SqlConnection(connectionString) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/Project.vbproj new file mode 100644 index 00000000000..484c85eac09 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/source.vb index 436406a097f..780f1f46c96 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Close Example/VB/source.vb @@ -6,11 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim str As String = "Data Source=(local);Initial Catalog=Northwind;" _ - & "Integrated Security=SSPI;" - ReadOrderData(str) - End Sub ' Private Sub ReadOrderData(ByVal connectionString As String) Dim queryString As String = _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/Project.vbproj new file mode 100644 index 00000000000..484c85eac09 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/source.vb index d0bf9e8fbfc..4a3fd33863d 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.GetOrdinal/VB/source.vb @@ -6,12 +6,6 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim str As String = "Data Source=(local);Initial Catalog=Northwind;" _ - & "Integrated Security=SSPI;" - ReadGetOrdinal(str) - End Sub - ' Private Sub ReadGetOrdinal(ByVal connectionString As String) Dim queryString As String = _ diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/Project.vbproj new file mode 100644 index 00000000000..484c85eac09 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/source.vb index b65366b3ed0..084d093e223 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/Classic WebData SqlDataReader.Read Example/VB/source.vb @@ -1,5 +1,4 @@ -' -Option Explicit On +Option Explicit On Option Strict On Imports System.Data @@ -7,12 +6,7 @@ Imports System.Data.SqlClient Module Module1 - Sub Main() - Dim str As String = "Data Source=(local);Initial Catalog=Northwind;" _ - & "Integrated Security=SSPI;" - ReadOrderData(str) - End Sub - + ' Private Sub ReadOrderData(ByVal connectionString As String) Dim queryString As String = _ "SELECT OrderID, CustomerID FROM dbo.Orders;" @@ -35,8 +29,7 @@ Module Module1 Private Sub ReadSingleRow(ByVal record As IDataRecord) Console.WriteLine(String.Format("{0}, {1}", record(0), record(1))) - End Sub + ' End Module -' \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.Add/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.Add/VB/source.vb deleted file mode 100644 index f71dd4caf2a..00000000000 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.Add/VB/source.vb +++ /dev/null @@ -1,36 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Data.Common - -Module Module1 - ' - Sub Main() - Try - Dim builder As New DbConnectionStringBuilder - builder.Add("Data Source", "ServerName") - builder.Add("Initial Catalog", "TheDatabase") - builder.Add("User ID", "UserName") - builder.Add("Password", "*******") - builder.Add("Command Logging", False) - - ' Overwrite the existing "User ID" value. - builder.Add("User ID", "NewUserName") - - ' The following code would trigger - ' an ArgumentNullException. - ' builder.Add(Nothing, "Some Value") - - Console.WriteLine(builder.ConnectionString) - - Catch ex As ArgumentNullException - Console.WriteLine("Null key values are not allowed.") - End Try - - Console.WriteLine("Press Enter to continue.") - Console.ReadLine() - End Sub - ' -End Module - diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/Project.vbproj new file mode 100644 index 00000000000..706cd0177f4 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/Project.vbproj @@ -0,0 +1,8 @@ + + + + Library + net4.8 + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/source.vb index dfbeb49c37c..689e6367026 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder.ConnectionString/VB/source.vb @@ -1,7 +1,5 @@ Option Explicit On Option Strict On - -Imports System.Data Imports System.Data.Common Module Module1 @@ -13,8 +11,7 @@ Module Module1 Dim builder As New DbConnectionStringBuilder() builder.Add("Data Source", "c:\MyData\MyDb.mdb") builder.Add("Provider", "Microsoft.Jet.Oledb.4.0") - builder.Add("Jet OLEDB:Database Password", "*******") - builder.Add("Jet OLEDB:System Database", _ + builder.Add("Jet OLEDB:System Database", "c:\MyData\Workgroup.mdb") ' Set up row-level locking. builder.Add("Jet OLEDB:Database Locking Mode", 1) @@ -29,24 +26,24 @@ Module Module1 ' connection string to it, to demonstrate how ' the class parses connection strings. builder.Clear() - builder.ConnectionString = _ - "Data Source=(local);Initial Catalog=AdventureWorks;" & _ + builder.ConnectionString = + "Data Source=(local);Initial Catalog=AdventureWorks;" & "Integrated Security=SSPI" - ' The DbConnectionStringBuilder class has parsed the contents, + ' The DbConnectionStringBuilder class has parsed the contents, ' so you can work with any individual key/value pair. builder("Data Source") = "." Console.WriteLine(builder.ConnectionString) Console.WriteLine() - ' Because the DbConnectionStringBuilder class doesn't + ' Because the DbConnectionStringBuilder class doesn't ' validate its key/value pairs, you can use this class ' to store any semicolon-delimited list. The following ' snippet places an arbitrary string into the ConnectionString ' property, changes one of the values, and then displays the ' resulting string. builder.Clear() - builder.ConnectionString = _ + builder.ConnectionString = "Value1=10;Value2=20;Value3=30;Value4=40" builder("Value2") = 25 Console.WriteLine(builder.ConnectionString) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/Project.vbproj new file mode 100644 index 00000000000..706cd0177f4 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/Project.vbproj @@ -0,0 +1,8 @@ + + + + Library + net4.8 + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/source.vb index 65a4c5b17fd..62a468327ee 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DbConnectionStringBuilder/VB/source.vb @@ -14,25 +14,22 @@ Module Module1 Dim builder As New DbConnectionStringBuilder() builder.ConnectionString = "Data Source=c:\MyData\MyDb.mdb" builder.Add("Provider", "Microsoft.Jet.Oledb.4.0") - builder.Add("Jet OLEDB:Database Password", "*******") - builder.Add("Jet OLEDB:System Database", _ - "c:\MyData\Workgroup.mdb") ' Set up row-level locking. builder.Add("Jet OLEDB:Database Locking Mode", 1) - ' Note that the DbConnectionStringBuilder class - ' is database agnostic, and it's possible to - ' build any type of connection string using + ' Note that the DbConnectionStringBuilder class + ' is database agnostic, and it's possible to + ' build any type of connection string using ' this class. - ' Notice that the ConnectionString property may have been + ' Notice that the ConnectionString property may have been ' formatted by the DbConnectionStringBuilder class. Dim oledbConnect As New _ OleDbConnection(builder.ConnectionString) Console.WriteLine(oledbConnect.ConnectionString) - ' Use the same DbConnectionStringBuilder to create + ' Use the same DbConnectionStringBuilder to create ' a SqlConnection object. builder.Clear() builder.Add("integrated security", True) @@ -42,25 +39,16 @@ Module Module1 Dim sqlConnect As New SqlConnection(builder.ConnectionString) Console.WriteLine(sqlConnect.ConnectionString) - ' Pass the DbConnectionStringBuilder an existing + ' Pass the DbConnectionStringBuilder an existing ' connection string, and you can retrieve and ' modify any of the elements. - builder.ConnectionString = _ - "server=(local);user id=*******;" & _ - "password=*******;initial catalog=AdventureWorks" + builder.ConnectionString = "server=(local);initial catalog=AdventureWorks" builder.Item("Server") = "." - builder.Remove("User ID") - ' Note that calling Remove on a nonexistent item doesn't - ' throw an exception. - builder.Remove("BadItem") - - ' The Item property is the default for the class, - ' and setting the Item property adds the value if + ' The Item property is the default for the class, + ' and setting the Item property adds the value if ' necessary. builder("Integrated Security") = True - builder.Remove("password") - builder.Item("User ID") = "Hello" Console.WriteLine(builder.ConnectionString) Console.WriteLine("Press Enter to finish.") diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Clear/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Clear/VB/source.vb deleted file mode 100644 index 4c699e5f6da..00000000000 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Clear/VB/source.vb +++ /dev/null @@ -1,48 +0,0 @@ -Option Explicit -Option Strict - -Imports System.Data -' -Imports System.Data.OleDb - -Module Module1 - Sub Main() - Dim builder As New OleDbConnectionStringBuilder() - builder.ConnectionString = "Data Source=C:\Sample.mdb" - - ' Call the Add method to explicitly add key/value - ' pairs to the internal collection. - builder.Add("Provider", "Microsoft.Jet.Oledb.4.0") - builder.Add("Jet OLEDB:Database Password", "MyPassword!") - builder.Add("Jet OLEDB:System Database", "C:\Workgroup.mdb") - - ' Set up row-level locking. - builder.Add("Jet OLEDB:Database Locking Mode", 1) - - ' Dump the contents of the "filled-in" OleDbConnectionStringBuilder - ' to the console window. - DumpBuilderContents(builder) - - ' Clear current values and reset known keywords to their - ' default values. - builder.Clear() - - ' Dump the contents of the newly emptied - ' OleDbConnectionStringBuilder - ' to the console window. - DumpBuilderContents(builder) - - Console.WriteLine("Press Enter to continue.") - Console.ReadLine() - End Sub - - Private Sub DumpBuilderContents(ByVal builder As OleDbConnectionStringBuilder) - Console.WriteLine("=================") - Console.WriteLine("builder.ConnectionString = " & builder.ConnectionString) - For Each key As String In builder.Keys - Console.WriteLine(key & "=" & builder.Item(key).ToString) - Next - End Sub -End Module -' - diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/Project.vbproj new file mode 100644 index 00000000000..9db400aecea --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/source.vb index 10d17931832..cc729944b68 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OleDbConnectionStringBuilder.Item/VB/source.vb @@ -3,7 +3,7 @@ Option Strict Imports System.Data ' -Imports System.Data.OleDb +Imports System.Data.OleDb Module Module1 Sub Main() @@ -11,7 +11,6 @@ Module Module1 builder.Provider = "Microsoft.Jet.Oledb.4.0" builder.DataSource = "C:\Sample.mdb" ' Set properties using the Item property. - builder.Item("Jet OLEDB:Database Password") = "DataPassword" builder.Item("Jet OLEDB:Encrypt Database") = True ' Because Item is the default property, you can leave out @@ -25,8 +24,8 @@ Module Module1 Console.WriteLine(builder.Item("Jet OLEDB:System database")) Console.WriteLine(builder("Jet OLEDB:Encrypt Database")) - ' You can set or retrieve any of the "default" values for the - ' provider, as well, even if you did not set their values. Again, + ' You can set or retrieve any of the "default" values for the + ' provider, as well, even if you did not set their values. Again, ' explicitly specifying the Item property name is optional. Console.WriteLine(builder.Item("Jet OLEDB:Database Locking Mode")) Console.WriteLine(builder("Jet OLEDB:Global Partial Bulk Ops")) diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/Project.vbproj new file mode 100644 index 00000000000..1564968cb6e --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/Project.vbproj @@ -0,0 +1,12 @@ + + + + Library + net4.8 + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/source.vb index 96e172add38..78dcf2592bf 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks OracleConnectionStringBuilder.ContainsKey/VB/source.vb @@ -1,42 +1,33 @@ Option Explicit -Option Strict +Option Strict On -Imports System.Data -' -' You may need to set a reference to the System.Data.OracleClient -' assembly before you can run this sample. Imports System.Data.OracleClient Module Module1 - Sub Main() - Dim builder As _ + ' + Sub Main() + Dim builder As _ New OracleConnectionStringBuilder(GetConnectionString()) - Console.WriteLine("Connection string = " & builder.ConnectionString) + Console.WriteLine("Connection string = " & builder.ConnectionString) - ' Keys you have provided return true. - Console.WriteLine(builder.ContainsKey("Integrated Security")) + ' Keys you have provided return true. + Console.WriteLine(builder.ContainsKey("Integrated Security")) - ' Comparison is case insensitive, and synonyms for the - ' keywords are translated to well-known names. - ' The following returns True because "PWD" is a - ' synonym for "Password", a valid key. - Console.WriteLine(builder.ContainsKey("PWD")) + ' Keys that are valid but have not been set return true. + Console.WriteLine(builder.ContainsKey("Unicode")) - ' Keys that are valid but have not been set return true. - Console.WriteLine(builder.ContainsKey("Unicode")) + ' Keys that don't exist return false. + Console.WriteLine(builder.ContainsKey("MyKey")) - ' Keys that don't exist return false. - Console.WriteLine(builder.ContainsKey("MyKey")) + Console.WriteLine("Press Enter to continue.") + Console.ReadLine() + End Sub - Console.WriteLine("Press Enter to continue.") - Console.ReadLine() - End Sub - - Private Function GetConnectionString() As String - ' To avoid storing the connection string in your code, - ' you can retrieve it from a configuration file. - Return "Server=OracleDemo;Integrated Security=True" - End Function + Private Function GetConnectionString() As String + ' To avoid storing the connection string in your code, + ' you can retrieve it from a configuration file. + Return "Server=OracleDemo;Integrated Security=True" + End Function + ' End Module -' diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/Project.vbproj b/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/Project.vbproj new file mode 100644 index 00000000000..3280bd119bf --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/Project.vbproj @@ -0,0 +1,14 @@ + + + + Library + net8 + + + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/source.vb b/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/source.vb index 66eb2bd0809..58b60ca7d04 100644 --- a/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/source.vb +++ b/snippets/visualbasic/VS_Snippets_ADO.NET/idatareader_nextresult/vb/source.vb @@ -8,18 +8,12 @@ Module Module1 Dim connectionTypeName As String = "SqlClient" Dim connectionString As String = "Data Source=(local);Initial Catalog=AdventureWorks2012;Integrated Security=SSPI" - ' Dim connectionTypeName As String = "Odbc" - ' Dim connectionString As String = "Driver={SQL Server Native Client 11.0};Server=(local);Database=AdventureWorks2012;Trusted_Connection=Yes" - - ' Dim connectionTypeName As String = "OleDb" - ' Dim connectionString As String = "Provider=SQLNCLI11;Data Source=(local);Initial Catalog=AdventureWorks2012;Integrated Security=SSPI" - Sub Main() Using connection As IDbConnection = DatabaseConnectionFactory.GetConnection(connectionTypeName, connectionString) Dim command As IDbCommand = connection.CreateCommand() command.Connection = connection - 'these 2 queries are executed as a single batch and return 2 separate results + 'These 2 queries are executed as a single batch and return 2 separate results. command.CommandText = "SELECT CountryRegionCode, Name FROM Person.CountryRegion;" + "SELECT CountryRegionCode, StateProvinceCode, Name, StateProvinceID FROM Person.StateProvince;" @@ -101,4 +95,4 @@ Module Module1 End Function End Class End Module -' \ No newline at end of file +' diff --git a/snippets/visualbasic/VS_Snippets_WebNet/System.Web.UI.WebControls.SqlDataSource_22sql/VB/sql22vb.aspx b/snippets/visualbasic/VS_Snippets_WebNet/System.Web.UI.WebControls.SqlDataSource_22sql/VB/sql22vb.aspx deleted file mode 100644 index 37d9a17424b..00000000000 --- a/snippets/visualbasic/VS_Snippets_WebNet/System.Web.UI.WebControls.SqlDataSource_22sql/VB/sql22vb.aspx +++ /dev/null @@ -1,97 +0,0 @@ - -<%@Page Language="VB" %> -<%@Import Namespace="System.Data" %> -<%@Import Namespace="System.Data.Common" %> - - - - - - - ASP.NET Example - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file