datastore example

Example

 

// first 5 Records from items

// ...........................

string ls_var
 
instance datastore dtw
dtw=add=select top 5 "ItemCode","ItemName" from "OITM" order by "ItemCode"
for=loop=1=<dtw.rowcount>
  dtw=setrow=<loop>
  ls_var=<ls_var><cr_lf><dtw.itemcode>
next
destroy=dtw
messagebox=<ls_var>

 

 

// Import Textfile

instance datastore lds
declare=dtw=ue_datastorevalues
dtw=addfield=itemcode=c=20
dtw=addfield=itemname=c=100
dtw=addfield=price=n=20
dtw=createbyfield
// import from second line
dtw=importtextfile=c:\temp\test.txt=2
if <value> n< 0 then
   messagebox=error$error import file! errorcode <value>
   destroy dtw
   return failure
end if
messagebox=test: <dtw.itemcode>
destroy=dtw