brOpenTCLCommand Method Example

The following program displays the output of the list command to show a random sampling of data from the customers file.

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.brCloseTclCommand oTCLCmd

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub