Editing Istruzioni SQL


Codice di esempio per eseguire una query nel database di Sage:

<pre>
Local Char WBASE   : WBASE="5"
Local Char WREQ(255) : WREQ="" 

WSEQ = "SELECT ITMREF_0, ITMDES1_0 FROM SAGEDEV.ITMMASTER WHERE ITMREF_0 LIKE 'WER%'" 

For (Char ITM(20), Char DES(40)) From "5" Sql WREQ As [REQ_]
    Infbox ITM - DES                 
Next
</pre>


Se si vuole automatizzare la scelta del dbms:
<pre>
Case GTYPDBA
  When 1 : WBASE = "3" : # Oracle
  When 2 : WBASE = "5" : # Sql
  When 3 : WBASE = "2" : # Cisam
  When 4 : WBASE = "4" : # DB2
Endcase

For (Char ITM(20), Char DES(40)) From WBASE Sql WREQ As [REQ_]
    Infbox ITM - DES                 
Next

</pre>