Destroys the specified clsD3TCLCommand object.
object. brCloseTCLCommand oTCLCmd
| Parameter | Description |
|---|---|
| object | An object variable that represents a clsD3Connection object. |
| oTCLCmd | An object variable that represents the clsD3TCLCommand object to be destroyed. |
Attempting to use a clsD3TCLCommand object that has been closed will result in a run-time error.
Any attempt to close a clsD3TCLCommand object that has been closed is ignored.
Sub Main()
Dim oEnv As New clsD3Environment
Dim oConn As clsD3Connection
Dim oTCLCmd As clsD3TclCommand
Set oConn = oEnv.brOpenConnection("ODBC", "Production")
Set oTCLCmd = oConn.brOpenTclCommand("copy customers")
oTCLCmd.brData "(cust.bak"
oTCLCmd.brExecute
oConn.brCloseTclCommandoTCLCmd
oEnv.brCloseConnection oConn
Set oEnv = Nothing
End Sub