Calls the FlashBASIC subroutine associated with the clsD3RuleModule object.
bValue = object.brCall(vArgs)
| Parameter | Description |
|---|---|
| bValue | The return value is a Boolean data type that is always True. |
| object | An object variable that represents a clsD3RuleModule object. |
| vArgs | A ParamArray of Variant elements that are the parameters to be passed to the subroutine. |
Sub Main()
Dim oEnv As New clsD3Environment
Dim oConn As clsD3Connection
Dim oRule As clsD3RuleModule
Dim vInput1 As Variant
Dim vInput2 As Variant
Dim vResult As Variant
Set oConn = oEnv. brOpenConnection(" ODBC", " production")
Set oRule = oConn.brOpenRuleModule("addit", "bp", "dm")
vInput1 = CVar(5)
vInput2 = CVar(7)
oRule.brCallvResult, vInput1, vInput2
MsgBox "The result is " & CInt(vResult)
vInput1 = CVar(2)
vInput2 = CVar(3)
oRule.brCallvResult, vInput1, vInput2
MsgBox "The result is " & CInt(vResult)
oConn.brCloseRuleModule oRule
oEnv.brCloseConnection oConn
Set oEnv = Nothing
End Sub
Don't do this:
for i = 1 to 10000 Open call close next I
Comments: If you have no shared basic segment, keeps loading program major memory allocation.
Do this:
open for i = 1 to 10000 call next i close
call