پیغام خطا در Commit کردن

[Saeid59_m]

بانک اطلاعاتی من SQL 2005 است
کد برنامه :

  try

   MyData.ADOCommand1.CommandText:='Begin Transaction';

   MyData.ADOCommand1.Execute;

//**********

    Str_Query:='UPDATE Users '+

    'SET IP_Login='+QuotedStr('')+

    ' , Login_now=0 , Login_Date='+QuotedStr('')+' , Rec_Use='+QuotedStr('')+

    ' WHERE User_ID='+inttostr (Online_Rec.User.ID);



    MyData.ADOCommand1.CommandText:= Str_Query;

    MyData.ADOCommand1.Execute;

//**********

   MyData.ADOCommand1.CommandText:='Commit Transaction';

   MyData.ADOCommand1.Execute;





  except

ShowMessage ('Error !');

  end;

این پیغام خطا رو می ده .

[amin_alexi]

فکر کنم اگه این مدلی بنویسی درست بشه !!

MyData.ADOCommand1.CommandText:='Begin Transaction'+Str_Query+'Commit Transaction';

MyData.ADOCommand1.Execute; 

همه رو تو یک دستور SQL اجرا کن ...

[amin_alexi]

یا میتونی از دستورات استفاده کنی اینا کاماتره !!!

Begin Transaction 

GO

Update Code Here

Go

Delete Code Here

Go

  Insert Code Here

Go

if @@Error>1 Rollback Transaction

Else Commit Transaction

[amin_alexi]

یا میتونی از دستورات استفاده کنی اینا کاماتره !!!

Begin Transaction 

GO

Update Code Here

Go

Delete Code Here

Go

  Insert Code Here

Go

if @@Error>1 Rollback Transaction

Else Commit Transaction

[Saeid59_m]

دستورات کاملاً درست بود .
مشکل این بود که خاصیت Keep Connection مربوط به Ado Connection رو روی False تنظیم کرده بودم .
از راهنمائی دوستان بسیار ممنون .

[babak_delphi]

البته می تونید به این صورت هم استفاده منید

AdoConnection.BeginTrans;

TRY

.

.

.

AdoConnection.Commit;

Except

Adoconnection.RollBack;

end;

در SQL Server 200 که جواب می داد
اینجا هم فکر نکنم مشکلی باشه