Seite 2 von 2
Re: neue Beispiele ???
Verfasst: Di, 30. Aug 2016 22:02
von Werner_Bayern
Hast Recht, die hab ich auch, hat 28 MB. Lag bei mir halt nicht im
Devcon_2012-Ordner, sondern unter
Alaska.
Danke fürs Scannen meiner Festplatte
Re: neue Beispiele ???
Verfasst: Di, 30. Aug 2016 23:13
von brandelh
die hab ich tatsächlich auch ... aber ob die noch gelten von den INC und so ...
INTO aDATA AS ARRAY ... muss ich morgen mal probieren.
passthrough.prg
Code: Alles auswählen
#pragma library("asrdbc10.lib")
#pragma library( "adac20b.lib" )
procedure main
LOCAL nCnt
// Workaround to attach a SQL Lite db
USQLStop()
USQLStart('..\data\northwind.sqlite3.db')
//? cStmt
//? USQLStatement():FromChar("ATTACH '..\data\northwind.sqlite3.db' AS northwind"):Execute()
nCnt := 0
SELECT Count(ALL) FROM "customers" INTO nCnt
? nCnt
WAIT
SELECT productname FROM alphabetical_list_of_products INTO aData AS ARRAY
? aData
WAIT
RETURN
bei UNIVERSAL steht das
Code: Alles auswählen
// the same as above except we are now joining a dbf table with an array of objects
SELECT aCAT->description+":::"+products->prod_name FROM products, (aCAT) ;
WHERE products->cat_id==aCAT->ID .AND. products->supplierid=2 ORDER BY products->cat_id INTO aData AS ARRAY
? MsgBox( Var2Char(aData) )
WAIT
Re: neue Beispiele ???
Verfasst: Mi, 31. Aug 2016 6:27
von brandelh
nun erhalte ich diese Meldung:
[Fehler] main.prg(71): XBTS600: Cannot match to any predicted input, near <aData> in Table name of INTO or EVAL sub clause