Using ADO to run mulitple SQL statement in one transaction.

generic

Hello.
I am doing an integration using ADO. My code looks something like below

IF ISCLEAR(ADOCommand) THEN
CREATE(ADOCommand);   

ActiveConnection := ADOConnection;
ADOCommand.ActiveConnection := varActiveConnection;   

ADOCommand.CommandText := 'insert into Some table ';
ADOCommand.CommandTimeout := 0;   
ADOCommand.Execute; 

ADOCommand.CommandText := 'insert into Some other table ';
ADOCommand.CommandTimeout := 0;   
ADOCommand.Execute; 

I am executing two INSERT statement. which are separate transaction. So if second one fails the first one is COMMITED.
I wanted to know how I can run the two insert statements in same Transaction.

Thank you.

garak

do you have tested someting like this:

CommandText := TextConst1 + Command1 + Command2 + TextConst2;

TextConst1 is a TextConst with the value "beging trans"
TextConst1 is a TextConst with the value "commit trans" or "end trans"
Command1 is a TextConst with the value "insert into table XYZ values ABS"
Command2 is a TextConst with the value "go insert into table TZU values GHT"

?

garak

Or you work with

AdoConn.BeginTrans

and

AdoConn.CommitTrans

The CommitTrans method saves all pending changes made since the last BeginTrans method call was used to initiate a transaction.
Also take a look here on the method RollbackTrans() if needed

Regards

generic

Thanks. That solved it. I'll update the heading.

garak

Please and welcome