Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Slow
Message
From
07/07/2008 06:43:41
 
 
To
07/07/2008 06:35:38
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Slow
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01329335
Message ID:
01329342
Views:
19
Is x2 a table or a cursor? If X2 is a table, which index tags do you have for yoru table x2?

>thank you for reply,
>
>i try it as below it take between 1 to lesthan 2 Minutes? i think it must be faster
>
>mytable have more than 6 milion records
>
>CLOSE all
>USE x2
> INDEX on f4 TO kk
> *index on f1 tag f1
>lcTempVariable=ALLTRIM(thisform.text1.value)
>LOCATE fOR f1=lcTempVariable
>thisform.text2.value=f4
>lcTempVariable=f4
>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=lcTempVariable;
>order BY f5;
>into CURSOR mycur
>thisform.grid1.RecordSource="mycur"
>**COUNT TO s
>s=_tally && s is a TERRIBLE variable name
>
>
>>Sorry, my presed the wrong button...
>>
>>First of all, unless you work with cursors, INDEX shall NEVER be a part of normal code! Period! End of discussion! Instead you use a structural index. I believe I have said this before.....
>>
>>Secondly, you NEVER locate for an object value, instead you use a variable
>>lcTempVariable=ALLTRIM(thisform.text1.value)
>>LOCATE fOR f1=lcTempVariable
>>And later in your code:
>>thisform.text2.value=f4
>>lcTempVariable=f4
>>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=lcTempVariable;
>>order BY f5;
>>into CURSOR mycur
>>**COUNT TO s
>>s=_tally && s is a TERRIBLE variable name, use something meaningful!!!
>>
>>>Hi all,
>>>
>>>i try to see result at mygrid , but it is very slow operation,
>>>
>>>f1=national number
>>>f4=my file number as 00123/234
>>>
>>>at my grid i must see all records have the same file number
>>>
>>>USE x2
>>>INDEX on f4 TO kk
>>>LOCATE fOR f1=ALLTRIM(thisform.text1.value)
>>>IF FOUND()
>>>
>>>thisform.text2.value=f4
>>>SELECT f1,f2,f3,f5,f6 FROM x2 WHERE f4=(thisform.text2.value);
>>>order BY f5;
>>>into CURSOR mycur
>>>COUNT TO s
>>>thisform.grid1.RecordSource="mycur"
>>>
>>>ELSE
>>>MESSAGEBOX("not found")
>>>ENDIF
>>>
>>>
>>>thanks
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform