I have a String search function, It searches more than 4 million Records.
>It takes more than 1 to 2 minutes to make the String search.
>Please How can i show a progress bar while search in progress. Thank you very much for the help.
>>LcSQL = [select distinct(a.tiffile), b.proj_no, b.workpkg_no, c.tofrm, c.sequence,;
>c.docdesc, c.org1, c.author1,c.reciporg1,c.recip1, c.ref1, c.docindex_i ];
>+[from ocrdata a, docudeck b, docindex c ;
>WHERE UPPER(b.file_name) = UPPER(a.tiffile) ;
>and b.docindex_i = c.docindex_i ;
>and Upper(a.OCDATA) like "%] + Upper(alltrim(stxtocrstring)) + [%"] + swhere +;
>[ order by a.id into Cursor lcSource]
>******************
>
>
>WAIT WINDOW "OCR Search in Progress"
>&LcSQL
>
>with thisform.pageframe1.page3.grid1
> .RecordSource = ""
> .RecordSourceType = 1
> .RecordSource = "lcSource"
>endwith
>WAIT CLEAR
>
Try this.
Put this code before SELECT
SET NOTIFY ON
SET TALK ON
DEFINE WINDOW dummy FROM 0,0 SIZE 1,1
SET TALK WINDOW dummy
and this after SELECT
RELEASE WINDOW dummy
SET NOTIFY OFF
SET TALK OFF
HTH
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
