Generic Data Access : Data Provider « Database ADO.net « VB.Net

1. VB.Net
2. Database ADO.net
3. Data Provider

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

   
    
  

Related examples in the same category

1.	OleDb Data Provider
2.	SQL Server Data Provider
3.	Available ADO.NET Data Providers
4.	Obtain the DbProviderFactory for SQL Server.