VB 2010 （60）通用提供程序模型

    在ADO.NET 1．x中，既可以使用具体的提供程序类进行编码，例如SqIConnection，也可以使用通用的接口进行编码，比如IDbConnection。如果项目中用到的数据库可能发生改变，或者在开发支持多种数据库的商业程序时，就必须使用通用的接口。由于不能直接在接口上调用构造函数，因此大多数通用项目都含有依靠自身工厂程序获得IDbConnection的代码，例如GetConnection方法会返回一个基于提供程序的实例，该实例实现了IDbConnection接口。
    ADO．NET现在采用了一个更高级的解决方案来获得具体提供程序的连接。每一个数据提供程序都会在.NET machine.config文件中注册—个ProviderFactory类和—个提供程序字符串。 ProviderFactory类(DbProviderFactory)和SysternData．Common.ProviderFactories类用于通过GetFactoryClasses方法返回一个DataTable对象，包含在machine．config中注册的所有数据提供程序信息。这两个类还可以根据指定的提供程序字符串(ProviderlnvariantName)或者DataRow，从DataTable中返回正确的
ProviderFactory。通过使用这种解决方案来代替基于提供程序名称建立连接的框架，ADO．NET使连接的建立更加简单、灵活和容易。

DbProviderFactory 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.data.common.dbproviderfactory?redirectedfrom=MSDN&view=netcore-3.1

DbProviderFactories 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.data.common.dbproviderfactories?view=netcore-3.1

Imports System.Data
Imports System.Data.Common
Imports System.Configuration

Public Class Form1
    Private Sub testCommonProvider()
        '1.创建工厂
        Dim factory As DbProviderFactory = _
            DbProviderFactories.GetFactory("System.Data.SqlClient")
        '2.用工厂创建connection
        Dim connection As DbConnection = factory.CreateConnection
        connection.ConnectionString = My.Settings.pubsConnectionString
        '3.从连接创建Command
        Dim command As DbCommand = connection.CreateCommand
        command.CommandType = CommandType.StoredProcedure
        command.CommandText = "usp_Get_All"
        '4.Adapter
        Dim adapter As DbDataAdapter = factory.CreateDataAdapter
        adapter.SelectCommand = command
        '5.DataTable
        Dim authors As New DataTable("Authors")
        adapter.Fill(authors)
        '6.Grid
        Me.DataGridView1.DataSource = authors
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        testCommonProvider()
    End Sub
End Class