BeginTrans CommitTrans 2

[Deadline]

Hi,

I have the cn.RollBackTrans in the ErrHandler area of my VB Code.

The issue here is sometimes, even before the program encounters the

cn.BeginTrans

command, there is a possibility of an error; And hence, it skips immediately to the

cn.RollBackTrans

command and I guess I am getting an error that begins like this

Object or With Block.....


The following is the error handling part I am using in my code:

ERRMAIN:
    If Err.Number = 62 Then
        Call ErrHandler("Empty Text File Present." & Chr(13) & "Please Copy the Proper Text File")
        Exit Sub
    Else
        Call ErrHandler(CStr(Now) & "-" & Err.Source & "-" & Err.Description & "-" & Err.Number)
    End If
    cn.RollbackTrans
    cn.Close
    Set cn = Nothing
    Exit Sub
End Sub

How to avoid the cn.RollbackTrans, if we haven't had cn.BeginTrans executed ?? WHat will happen if I simply don't give cn.RollBackTrans here in the error handler part ?


Thank you very much.

RR

 

[Ruairi]

Probably the easiest way to do it is to have a variable, InsideTransaction that you can set to true when you issue a Begintrans. Set it to false when you issue a committrans or rollbacktrans. Then put this in your error handler in place of the simple rollback:

If Not InsideTransaction Then 
    'there is no transaction, so don't roll it back
Else 
    cn.RollBackTrans 
    InsideTransaction = False 
End If

Ruairi

Could your manufacturing facility benefit from real time process monitoring? Would you like your employees to be able to see up to the minute goal and actual production?
For innovative, low cost solutions check out my website.

http://www.plccontroltechnologies.com

 

[Deadline]

Thanks Ruari...
Precisely that is what I did. Thank you very much.

RR

 

[suoirotciv]

my my my . . . what a simple solution . . . i been thinking of same problem . . .

tnx a lot . . .

Please pardon the grammar.
Not good in english.