Seite 2 von 2

Re: neue Beispiele ???

Verfasst: Di, 30. Aug 2016 22:02
von Werner_Bayern
#-o 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 :lol:

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

Code: Alles auswählen

 SELECT * FROM (directory()) INTO aData AS ARRAY
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