Sql Query

I have used sql queries in paradox events previoisly and had no
problems, I now to use a new ODBC driver, the sql builder works fine.
I have tried to put the code on a button and now the sql query fails.
my code is as follows. Can anyone help me. It fails at the execute
statment.

var
itemNameSQL SQL
ViewName tableview
db database
tc1,tc2,tc3 Tcursor
cus,sup,prt,so,sod Longint
ar1 Array[] anytype
dynalias Dynarray[] anytype
endVar

tc1.open("Update Integers.db")
so = tc1.LastSalesOrder

dynalias["USER NAME"] = "XX"
dynalias["PASSWORD"] = "xxxxxx "

db.open (":Altro Caliach:", dynalias)

; this will open the connection to the local table or SQL table via
the alias

itemNameSQL = SQL ; the following stores the SQL statement
into the variable

SELECT Omnis_sohfile.SOHCADS, Omnis_adrfile.ADRID,
Omnis_sohfile.SOHSONO
Omnis_sohfile.SOHCREF, Omnis_sohfile.SOHDATE, Omnis_sohfile.SOHDAQO,
Omnis_sohfile.SOHCUSC,
Omnis_adrfile.ADRCNAM, Omnis_adrfile.ADRADDR, Omnis_adrfile.ADRZIP,
Omnis_adrfile.ADRTEL,
Omnis_sohfile.SOHQVAD
FROM OMNIS.ADRFILE Omnis_adrfile, OMNIS.SOHFILE Omnis_sohfile
WHERE (Omnis_sohfile.SOHCADS = Omnis_adrfile.ADRID)
and Omnis_sohfile.SOHSONO > '~so'

endsql


IF NOT executeSQL(db, itemNameSQL, ":work:SOHCal.DB") then
MSGINFO("Sorry", "Did not work.")
endif
ViewName.open(":work:SOHCal.DB") ;displays the answer table

Endmethod

Try this:

itemNameSQL.executeSql(db,":work:SOHCal.DB")

bspiteri.RemoveThis@ozemail.com.au wrote:
> I have used sql queries in paradox events previoisly and had no
> problems, I now to use a new ODBC driver, the sql builder works fine.
> I have tried to put the code on a button and now the sql query fails.
> my code is as follows. Can anyone help me. It fails at the execute
> statment.
>
> var
> itemNameSQL SQL
> ViewName tableview
> db database
> tc1,tc2,tc3 Tcursor
> cus,sup,prt,so,sod Longint
> ar1 Array[] anytype
> dynalias Dynarray[] anytype
> endVar
>
> tc1.open("Update Integers.db")
> so = tc1.LastSalesOrder
>
> dynalias["USER NAME"] = "XX"
> dynalias["PASSWORD"] = "xxxxxx "
>
> db.open (":Altro Caliach:", dynalias)
>
> ; this will open the connection to the local table or SQL table via
> the alias
>
> itemNameSQL = SQL ; the following stores the SQL statement
> into the variable
>
> SELECT Omnis_sohfile.SOHCADS, Omnis_adrfile.ADRID,
> Omnis_sohfile.SOHSONO
> Omnis_sohfile.SOHCREF, Omnis_sohfile.SOHDATE, Omnis_sohfile.SOHDAQO,
> Omnis_sohfile.SOHCUSC,
> Omnis_adrfile.ADRCNAM, Omnis_adrfile.ADRADDR, Omnis_adrfile.ADRZIP,
> Omnis_adrfile.ADRTEL,
> Omnis_sohfile.SOHQVAD
> FROM OMNIS.ADRFILE Omnis_adrfile, OMNIS.SOHFILE Omnis_sohfile
> WHERE (Omnis_sohfile.SOHCADS = Omnis_adrfile.ADRID)
> and Omnis_sohfile.SOHSONO > '~so'
>
> endsql
>
>
> IF NOT executeSQL(db, itemNameSQL, ":work:SOHCal.DB") then
> MSGINFO("Sorry", "Did not work.")
> endif
> ViewName.open(":work:SOHCal.DB") ;displays the answer table
>
> Endmethod