Sets or returns the TCL command associated with the clsD3TclCommand object.
object.brCommand [= sValue]
| Parameter | Description |
|---|---|
| object | An object variable that represents a clsD3TCLCommand object. |
| sValue | The setting or return value is a String data type indicating the TCL command. |
The command can also be set in the creation of the clsD3TclCommand object, using either the brOpenTclCommand method or the brExecute method.
Sub Main()
Dim oEnv As New clsD3Environment
Dim oConn As clsD3Connection
Dim oTCLCmd As clsD3TclCommand
Dim sResult As String
Dim sNumOrders As String
Set oConn = oEnv.brOpenConnection("ODBC", "Production")
Set oTCLCmd = oConn.brOpenTclCommand("")
oTCLCmd.brCommand= "run dm,bp, process.orders"
' Provide appropriate data that is typically
' entered by the user.
oTCLCmd.brData "Y" & D3AMChr & "Y"
oTCLCmd.brResults = D3ExecuteCapturing
oTCLCmd.brExecute
Debug.Print oTCLCmd.brCapturing.brCString
sResult = oTCLCmd.brCapturing.brExtractStr(1)
sNumOrders = oTCLCmd.brCapturing.brExtractStr(2)
oConn.brCloseTclCommand oTCLCmd
oEnv.brCloseConnection oConn
Set oEnv = Nothing
End Sub