VB.NET データプロバイダーを使用しての DB 接続（SQLServer、Oracle共通化）

データプロバイダーを使用して、SQL Server 及び Oracle に接続するための共通処理を紹介したいと思います。

Oracle 接続環境の注意点

Oracle に接続する際は、下記準備が必要となります。

Oracle Data Access Components (ODAC) for Windows のインストール
使用している Visual Studio のバージョンによりインストーラーが用意されています。
2018-04-13 現在、Oracle ホームページのこちらからダウンロードすることができます。
開発プロジェクトの参照設定に、Oracle.DataAccess を追加する必要があります。

DB接続（SQLServer、Oracle共通化）

Dim prov As DbProviderFactory = Nothing
Dim con As DbConnection = Nothing
Dim cmd As DbCommand = Nothing

'False:Oracle接続、True:SQLServer接続
Dim isDbSQLServer As Boolean = False
Dim strProvider As String
Dim strConnection As String

'DbProviderFactoryオブジェクトの生成
If isDbSQLServer Then
'SQLServer接続の場合
strProvider = "System.Data.SqlClient"
strConnection = String.Format("Server={0};Database={1};User ID={2};Password={3};", _
"192.168.1.1", _
"sqlDB", _
"userid", _
"userpw")
Else
'Oracle接続の場合
strProvider = "Oracle.DataAccess.Client"
strConnection = String.Format("Data Source={0};User Id={1};Password={2};", _
"oraDB", _
"userid", _
"userpw")
End If

prov = DbProviderFactories.GetFactory(strProvider)

'DbConnectionオブジェクトの生成、及び、オープン
con = prov.CreateConnection()
con.ConnectionString = strConnection
con.Open()

'DBCommandオブジェクトの生成、及び、コネクションの設定
cmd = prov.CreateCommand()
cmd.Connection = con

上記ソースプログラムの isDbSQLServer 変数に「False」を設定すると SQL Server に接続し、「True」を設定すると Oracle に接続できるような作りとなっています。

SQL Server の接続文字列の設定
Server：DB サーバー名、または、IP アドレス
Database：接続先の DB 名
User ID：DB 接続するユーザー ID
Password：DB 接続するパスワード
Oracle の接続文字列の設定
Data Source：tnsname.ora に設定してあるデータソース名
User ID：DB 接続するユーザー ID
Password：DB 接続するパスワード