Devart Forum

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

  con1.StartTransaction;
  try
    myqry1.SQL.Clear;
    myqry1.SQL.Add('INSERT INTO shop_brands (url) VALUES ('+QuotedStr(Translit_URL(S))+');');
    myqry1.SQL.Add('SELECT @@IDENTITY;');
    myqry1.ExecSQL;
    id:=myqry1.Fields[0].AsInteger;
    myqry1.SQL.Add('INSERTtttt INTO shop_brands_i18n (id,locale,name,meta_title,meta_description,meta_keywords) VALUES ('+
                   IntToStr(id)+', ''ru'', ' +
                   QuotedStr(S)+', '+QuotedStr(S)+', '+QuotedStr(S)+', '+QuotedStr(S)+');');
    myqry1.ExecSQL;
    con1.Commit;
  except
    con1.Rollback;
  end;