Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Update 2 or more CA cursors
Message
 
 
To
11/10/2010 21:30:06
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01484765
Message ID:
01484897
Views:
38
>Naomi,
>
>>I understand the pcinciple, but if you can post the code of your subclass, it will be most helpful.
>
>I am in a public computer now, but my codes goes something like this...
>
>In my DE subclass, I have the following methods: BeginTrans(), CommitTrans(), RollBackTrans(), SaveTrans().
>
>
>BeginTrans()
>= SQLEXEC( This.DataSource, "BEGIN TRANSACTION" )
>
>CommitTrans()
>= SQLEXEC( This.DataSource, "COMMIT" )
>
>RollbackTrans()
>= SQLEXEC( This.DataSource, "ROLLBACK" )
>
>SaveTrans()
>* loop thru each CA object 
>* dump into a Collection oCursors
>
>llCommit = .T.
>
>FOR EACH loCursor IN oCursors
>   IF NOT loCursor.Save()
>       llCommit = .F.
>   ENDIF
>ENDFOR
>
>IF llCommit
>    This.CommitTrans()
>ELSE
>   This.RollBackTrans()
>ENDIF
>
>
>
>HTH,
>
>Dennis
>
>
>
>

Great, this is very helpful.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform