Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Update 2 or more CA cursors
Message
From
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:
01484894
Views:
34
This message has been marked as a message which has helped to the initial question of the thread.
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



Previous
Next
Reply
Map
View

Click here to load this message in the networking platform