Closes the connection to the database and destroys the clsD3Connection object.
object.brCloseConnection oConn
| Parameter | Description |
|---|---|
| object | An object variable that represents a clsD3Environment object. |
| oConn | An object variable that represents the clsD3Connection object to be destroyed. |
Sub Main()
Dim oEnv As New clsD3Environment
Dim oConn1 As clsD3Connection
Dim oConn2 As clsD3Connection
' Environment settings.
oEnv.brCurrency = "$"
oEnv.brDecimal = "."
oEnv.brGrouping = ","
oEnv.brCasing = False
' oConn1 will inherit environment settings.
Set oConn1 = oEnv.brOpenConnection("ODBC", "USproduction")
Set oConn2 = oEnv.brOpenConnection("ODBC", "UKproduction")
' Customizing settings.
oConn2.brCurrency = "L"
oConn2.brDecimal = ","
oConn2.brGrouping = "."
...
' Closing connections.
oEnv.brCloseConnectionoConn1
oEnv.brCloseConnectionoConn2
Set oEnv = Nothing
End Sub