Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Delete
Message
 
To
04/08/2008 14:01:01
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Delete
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01336237
Message ID:
01336299
Views:
25
>>>SET DELETED ON
>>>
>>>txtPathName = "DADOS\ECT\" + "ECT" + CHRTRAN(DTOC(DATE()),"/","") + ".TXT"
>>>= MESSAGEBOX (txtPathName)
>>>SET SAFETY OFF
>>>COPY FILE (anxFullPth) TO (txtPathName)
>>>SELECT pgreembolso3
>>>DELETE ALL
>>>append FROM (txtPathName) type SDF && till here records are appended OK
>>>set safe on
>>>SELECT pgreembolso3
>>>
>>>Now I need to delete the first record , because its the header
>>>
>>>BROW
>>>GOTO 1
>>>DELETE
>>> PACK
>>>BROW ---- first record still there
>>
>>NO WAY!
>>After PACK all deleted records should disappear.
>>
>>
>>SET DELETED ON
>>
>>txtPathName =  "DADOS\ECT\" + "ECT" + CHRTRAN(DTOC(DATE()),"/","") + ".TXT"
>>= MESSAGEBOX (txtPathName)
>>SET SAFETY OFF
>>COPY FILE (anxFullPth) TO (txtPathName)
>>SELECT * FROM pgreembolso WHERE .f. INTO CURSOR pgreembolso3 READWRITE
>>
>>SELECT pgreembolso3
>>append FROM (txtPathName)  type SDF  && till here records are appended OK
>>SELECT pgreembolso3
>>BROW
>>GOTO 1
>>DELETE
>>PACK
>>GO TOP
>>BROW
>>
>Check Moises' code, and you will see that he first DELETE ALL, then he APPENDs, then he DELETEs the first record which is already deleted...! After the first DELETE ALL he has forgotten to PACK. Nevertheless he uses a zillion lines to do something which could be done in two lines.

O! Sh.....t!
:-)
You are right of course.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform