""

adoquery.edit/append

adoquery.fieldbyname('a').astring:='sss';

adoquery.ADODataSet1.CheckBrowseMode

with TADOQuery.Create( nil ) do

try

            Connection:=conn;

           sql.Text:='insert into zy_dj(ZYNo) values('123456')'; try

            conn.BeginTrans; //

            Try

              ExecSQL;

             conn.CommitTrans; //

            Except

              on e:Exception do begin

                MessageDlg(' +e. Message ,mtError,[mbok],0) ;

                conn.RollbackTrans; //

              end ;

  finally

    free;

end ;

{8I ,

8I}

        Try

            ExecSQL;

            conn.CommitTrans; //  

            Except

             on e:Exception do begin

                MessageDlg(' +e. Message ,mtError,[mbok],0) ;

               conn.RollbackTrans; //

            end ;