Devart Forum

Код: Выделить всё

 try
        DM.MyConnection1.StartTransaction;
        
            with DM.MyQuery1 do
              begin
                Close;
                sql.text:='INSERT INTO Org(  ID_Tip_O, NK, ND,  Kom)'
                +' VALUES ( :ID_Tip_O, :NK, :ND, :Kom)';
                Params[0].Value:=s[12];
                Params[1].Value:=s[2];
                Params[2].Value:=s[3];
                Params[3].Value:=s[4];
                ExecSQL;
              end;

            if ListView1.Items.Count>0 then
              begin
                for i:=0 to ListView1.Items.Count-1 do
                  begin
                    with DM.MyQuery1 do
                      begin
                        Close;
                        sql.text:='INSERT INTO Org_Kont( ID_Org, ID_Tip, N)'
                        +' VALUES ( :ID_Org, :ID_Tip, :N)';
                        Params[0].Value:=s[15];
                        Params[1].Value:=s[16];
                        Params[2].Value:=ListView1.Items[i].SubItems[2];
                        ExecSQL;
                      end;
                  end;
              end;

          end;
        DM.MyConnection1.Commit;
      except
        DM.MyConnection1.Rollback;
        
      end;