Generic Data Access
Imports System.Data.Common Imports System.Configuration Module GenericDatabaseTest Public Sub Main() Dim Factory, Connection, Query As String Factory = "Factory" Connection = "Connection" Query = "Query" Dim Provider As DbProviderFactory Provider = DbProviderFactories.GetFactory(Factory) Dim con As DbConnection = Provider.CreateConnection() con.ConnectionString = Connection Dim Adapter As DbDataAdapter = Provider.CreateDataAdapter Adapter.SelectCommand = Provider.CreateCommand() Adapter.SelectCommand.Connection = con Adapter.SelectCommand.CommandText = Query Dim ds As New DataSet Adapter.Fill(ds, "Orders") For Each Row As DataRow In ds.Tables("Orders").Rows Console.WriteLine(Row("OrderID")) Next End Sub End Module
1. | OleDb Data Provider | ||
2. | SQL Server Data Provider | ||
3. | Available ADO.NET Data Providers | ||
4. | Obtain the DbProviderFactory for SQL Server. |