月別: 2017年9月

Shared関数などで、自クラスのインスタンスを生成

    Public Shared Sub Create(ByVal opeNo As String)
        Dim m As System.Reflection.MethodBase = System.Reflection.MethodBase.GetCurrentMethod()
        Dim t As Type = Type.GetType(m.DeclaringType.FullName)
        Dim oAs Object = Activator.CreateInstance(t)
    End Sub

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