Special Facilities

Query Reference Manual

Query and ODBC : Special Facilities

Query includes some general enquiry facilities for DSN's and ODBC driver names and provides access to them using the same method used for tables of an ODBC data source. The DSN to use to access this information is AdminSpecial and the table names are DSN and Drivers. They make it possible for a user interface designer to create a selection of available DSN's from which to make a connection. Here are the main Query commands for AdminSpecial and the only supported SQL commands:

external open |synonym| !!TOK as |DSN=AdminSpecial;|
external send $!!TOK |select * from DSN|
external send $!!TOK |select * from Drivers|
external close $!TOK

The external open command requires a valid synonym for ODBC.

Here is an example of a macro to read all of the available DSN’s into a list gadget:


Example:
$* clear the user interface gadgets var _PARA1 \|\| $* clear the user interface gadgets var _PARA1 \|\| var list _TABLE1 clear exit $* connect to the AdminSpecial DSN external open \|ODBC\| !TOK as \|DSN=AdminSpecial;\| handle any error \|$!!ERROR.TEXT\| endhandle $* select all of the records from the DSN table external send $!TOK \|select * from DSN\| handle any error \|$!!ERROR.TEXT\| endhandle $* fetch the first column header to the paragraph gadget var !HEAD delete var !HEAD external get $!TOK HEADER handle any error \|$!!ERROR.TEXT\| endhandle var _PARA1 (trim(vtext(!HEAD[1]))) do var !INFO delete var !INFO external get $!TOK NEXT handle ( 79, 10 ) break $* end of data endhandle var list _TABLE1 add (trim(vtext(!INFO[1]))) exit enddo $* close the connection external close $!TOK handle any error \|$!!ERROR.TEXT\| endhandle return

Important:

It is important to remember that these facilities are not based on the system ODBC libraries and that the commands that are shown are the only ones that are supported.