Main Menu

KB#00365-Programs demonstrating SQL access to an ODBC-defined datasource

Title:

Programs demonstrating SQL access to an ODBC-defined datasource

Description:

The following example shows how to use SQL to query a database. It uses a datasource named 'Salesl_History', but any valid datasource can be used in its place. Note that it uses an aggregate function and a parameter in the query. 

0005 INPUT "Enter Sales Person:",SP$ 
0010 SQLOPEN (1)"Sales_History" 
0020 SQLPREP (1)"select count(*) as Total_Sales from sales_log where salesperson = ?" 
0030 DIM RCT$:SQLTMPL(1) 
0040 SQLEXEC (1)SP$ 
0050 LET RCT$=SQLFETCH(1) 
0060 PRINT SP$," had",RCT.Total_Sales," sales" 

=================================================== 

0010 SQLOPEN (1,MODE="ExecDirect=1")"ACCESS_CD_DB" 
0020 SQLPREP (1)"select * from discs" 
0030 SQLEXEC (1) 
0040 DIM A$:SQLTMPL(1) 
0050 LET A$=SQLFETCH(1,ERR=0160) 
0060 PRINT "Artist:"+A.ARTIST$ 
0070 PRINT "Title:"+A.TITLE$ 
0080 PRINT "Year:",A.YEAR 
0090 PRINT "Songs:",A.SONGS 
0100 PRINT "Rating:",A.RATING 
0110 PRINT "Category:",A.CATEGORY$ 
0130 PRINT $0D0A$ 
0140 INPUT "Press <CR> to continue...",* 
0145 PRINT $0D0A$ 
0150 GOTO 0050 
0160 CLOSE (1) 



Last Modified: 02/23/2004 Product: PRO/5

BASIS structures five components of their technology into the BBx Generations.

View BASIS LinkedIN Profile Visit our Twitter Feed Check out our Facebook Public Profile Click to View the BASIS youTube channel