Hi.

I'm trying to test hbmemio with RDDADS but I can't.  Is it possible?

---cut---
REQUEST HB_MEMIO
REQUEST ADS
PROC Main()
   LOCAL nI
   FIELD F1
   rddregister("ads",1)
   rddsetdefault("ads")
   adssetfiletype(3)
   DBCREATE("mem:test", {{"F1", "N", 9, 0}},, .T., "memarea")
   FOR nI := 1 TO 1000
     DBAPPEND();  F1 := HB_RANDOM() * 1000000
   NEXT
   INDEX ON F1 TAG f1
   DBEVAL({|| QOUT(F1)})
   DBCLOSEAREA()
   DBDROP("mem:test")
RETURN
---cut---


Thanks and best regards,

Toninho.

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to