List 6-30　DataObj.Billコンポーネントのコンストラクタ文字列の設定部分

  1： Implements IObjectConstruct
  2： Implements ObjectControl
  3： 
  4： Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
  5：     ' コンストラクタ文字列を取得し，変数g_DBConnectionに代入
  6：     g_DBConnection = pCtorObj.ConstructString()
  7： End Sub
  8： 
  9： Private Sub ObjectControl_Activate()
 10：     ' アクティブ化されたときにg_DBConnection変数が初期化されていなければ
 11：     ' デフォルトの値を設定する
 12：     If g_DBConnection = "" Then
 13：         g_DBConnection = "Driver=SQL Server;Server=(local);UID=sa;" & _
  　                           "Database=businesssampleDB;"
 14：     End If
 15： End Sub
 16： 
 17： Private Sub ObjectControl_Deactivate()
 18：     ' 非アクティブ化されたときの処理（ここでは何もしない）
 19： End Sub
 20： 
 21： Private Function ObjectControl_CanBePooled() As Boolean
 22：     ' オブジェクトのプーリングの設定（VisualBasicの場合には無意味）
 23：     ObjectControl_CanBePooled = True
 24： End Function