Imports System.Data.Common ' プロバイダファクトリ作成 Dim fact As DbProviderFactory = DbProviderFactories.GetFactory("Oracle.DataAccess.Client") ' ファクトリにて DbConnection へ固有プロバイダのインスタンス化 Using cnn As DbConnection = fact.CreateConnection() cnn.ConnectionString = TextBox2.Text cnn.Open() ' ファクトリにて DbCommand へ固有プロバイダのインスタンス化 Dim cmd As DbCommand = fact.CreateCommand() cmd.Connection = cnn cmd.CommandText = "SELECT COUNT(*) FROM Production.Product" MessageBox.Show(cnn.ToString() & " / " & cmd.ToString()) MessageBox.Show("行数 = " & cmd.ExecuteScalar().ToString()) End Using
http://se.ykysd.com/2015/06/26/dbproviderfactories/
https://code.msdn.microsoft.com/windowsdesktop/10-VB-64b532ff
○動的アセンブリロード
http://shinshu.fm/MHz/88.44/archives/0000437259.html