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
neue Beispiele ???
Moderator: Moderatoren
- Werner_Bayern
- Der Entwickler von "Deep Thought"
- Beiträge: 2126
- Registriert: Sa, 30. Jan 2010 22:58
- Wohnort: Niederbayern
- Hat sich bedankt: 30 Mal
- Danksagung erhalten: 75 Mal
- brandelh
- Foren-Moderator
- Beiträge: 15701
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 69 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: neue Beispiele ???
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
bei UNIVERSAL steht das
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
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
Gruß
Hubert
Hubert
- brandelh
- Foren-Moderator
- Beiträge: 15701
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 69 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: neue Beispiele ???
Code: Alles auswählen
SELECT * FROM (directory()) INTO aData AS ARRAY
[Fehler] main.prg(71): XBTS600: Cannot match to any predicted input, near <aData> in Table name of INTO or EVAL sub clause
Gruß
Hubert
Hubert