TextualRptSQLQuery, CommandReportCmdTarget Property

Syntax

TextualRptSQLQuery = _String

Description

This property is used for setting or returning the query to be used for extracting data from the DataLogger or Recipe selected from a "Textual Report" or "Embedded Report".

Query must be in the right context according database used and variable names cannot be inserted to make query dynamic.

 

After having added or modified a command from the object's command list you must execute the  SaveChanges method from the  CommandsListCmdTarget interface to apply modifications to the object's command list.

Please also remember that any modifications to command lists will only remain valid until the object is downloaded from memory (closing screen).  The object will be restored with the initial  command list associated when programmed the next time it is uploaded. However, command list  modifications can be made persistent by associating the object with a configuration file which must be saved after modifying and saving the object's command list.

 

 

Parameter

Description

None

None

 

Result

 

String

 

Example1:

 

Public Sub Click()

 

Dim objButtonRelease As ButtonCmdTarget

 

Dim objCommandList As CommandsListCmdTarget

Dim objCommandReport As CommandReportCmdTarget

 

Set objButtonRelease = GetSynopticObject.GetSubObject("objButtonRelease").GetObjectInterface

Set objCommandList = objButtonRelease.GetCommandsInterfaceOnRelease

Set objCommandReport = objCommandList.GetCommandInterfaceAtPos(0)

 

objCommandReport.TextualRptSQLQuery = "Select * From DataLogger1"

objCommandList.SaveChanges

 

 

Set objCommandReport = Nothing

Set objCommandList = Nothing

Set objButtonRelease = Nothing

End Sub

 

Example2:

 

Public Sub Click()

Dim objRect As DrawCmdTarget

Dim objCommandList As CommandsListCmdTarget

Dim objCommandReport As CommandReportCmdTarget

 

Set objRect = GetSynopticObject.GetSubObject("objRect")

Set objCommandList = objRect.GetCommandsInterfaceOnRelease

Set objCommandReport = objCommandList.GetCommandInterfaceAtPos(0)

 

objCommandReport.TextualRptSQLQuery = "Select * From DataLogger1"

objCommandList.SaveChanges

 

Set objCommandReport = Nothing

Set objCommandList = Nothing

Set objRect = Nothing

End Sub

 

See Also