public function set cpMainConnectionProvider(value : clsConnectionProvider);
$END-IFNOTEMPTY$
Visual Basic
Copy Code
]]>
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider Set(ByVal Value As clsConnectionProvider) If Value Is Nothing Then ' // Invalid value Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.") End If
' // A connection provider object is passed to this class. ' // Retrieve the SqlConnection object, if present and create a ' // reference to it. If there is already a MainConnection object ' // referenced by the membervar, destroy that one or simply ' // remove the reference, based on the flag. If Not (m_scoMainConnection Is Nothing) Then ' // First get rid of current connection object. Caller is responsible If m_bMainConnectionIsCreatedLocal Then ' // Is local created object, close it and dispose it. m_scoMainConnection.Close() m_scoMainConnection.Dispose() End If ' // Remove reference. m_scoMainConnection = Nothing End If m_cpMainConnectionProvider = CType(Value, clsConnectionProvider) m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection m_bMainConnectionIsCreatedLocal = False End Set End Property
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2The .NET Framework does not support all versions of every platform. For a list of the supported versions, see
]]>System Requirementsa]]>]]>.
Copy Code
]]>