Транзакции вместе циклом из Дельфи

@kobakoba7 · Регистрация: 21.05.2016

Студворк — интернет-сервис помощи студентам

здравствуйте.
я столкнулся вот с такой проблемы, из delphi циклам передаются значение mysql в хранимую процедуру.задача такая
при ашипке должен произойти аткат. откат то делается но последний значении который пришел циклом из делфи в цикле из делфи передаются со стринггрида страки
и я хочу чтоб все страки откатились ане толка адин.
вот код:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
CREATE DEFINER=`root`@`%` PROCEDURE `produqcial`( 
  IN `molare` VARCHAR(20), 
  IN `users` VARCHAR(20),
  IN `distributori` VARCHAR(20), 
  IN `shtrixkodi` BIGINT(15),  
  IN `dasaxeleba` VARCHAR(50),
  IN `raodenoba` VARCHAR(20),
  IN `tipi` VARCHAR(20),
  IN `fasi` VARCHAR(20),
  IN `jami` VARCHAR(20),
  IN `mogeba` VARCHAR(20)
)
BEGIN
DECLARE err INT DEFAULT 0;
proc: BEGIN
DECLARE N INT(5);
DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET err=1;
START TRANSACTION;
IF (shtrixkodi <> '111') THEN
SET N = (SELECT AUTO_INCREMENT  FROM information_schema.tables WHERE TABLE_NAME='table1');
UPDATE   // здесь обыкновенны UPDATE
INSERT INTO  // здесь обыкновенны INSERT  
LEAVE proc;
END IF;
INSERT INTO   // здесь обыкновенны INSERT  как только shtrixkodi будет равно '111' этим узнаю что страки в стринггрид кончились и исполнение кода переходит суда
END;
IF (err=0) THEN
COMMIT; 
ELSE 
ROLLBACK; 
SELECT 'eror';
END IF;
END$$

и хачу что если ашыпка будет всё аткатилось а не толка паследное перед ашипкой.

@kobakoba7 · 09.02.2018, 18:32 **[ТС]**

ошибку пишет если прямо phpmyadmin сделать запрос то видна что в два страки делает. каждого update добавил в конце разумеется - " ; "

Сообщение от qwertehok

ну раз ты используешь Firedac, то может тебе поможет ArrayDML

щас это посмотрю посмотрим что получится

@kobakoba7 · 09.02.2018, 18:33 **[ТС]**

eror

@qwertehok · 09.02.2018, 18:42

Сообщение от kobakoba7

ошибку пишет если прямо phpmyadmin сделать запрос то видна

запросы сначала надо оттестировать

Сообщение от kobakoba7

eror

без кода эта ошибка ничего не значит

@kobakoba7 · 09.02.2018, 23:50 **[ТС]**

Сообщение от qwertehok

без кода эта ошибка ничего не значит

в смысле ?

Добавлено через 1 минуту

Сообщение от qwertehok

запросы сначала надо оттестировать

я и оттестировал, потому знаю что ошибку пишет

Добавлено через 1 минуту
код тоте сами проста переведённы

Добавлено через 4 часа 59 минут
ну вот результаты моих исследований про Array DML вот всё что я смог от него вытянут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
with StringGrid1 do
 begin
  FDConnect_gayidva;  // procedura conect
  FDQuery1.SQL.Text := 'insert into test (ID, Name, daminfo) values (:ID,:Name,:daminfo)';
  FDQuery1.Params.ArraySize := 100;
  for i := 1 to RowCount - 2 do begin
  FDQuery1.Params[0].AsIntegers[i] := i;
  FDQuery1.Params[0].Clear(i);
  FDQuery1.Params[1].AsStrings[i] := ''+Cells[3,i]+'';
  FDQuery1.Params[1].Size := 50;
  FDQuery1.Params[2].AsDateTimes[i] := now();
  //FDQuery1.Params[2].Size := 20;
  end;
  FDQuery1.Execute(RowCount - 1, 1);
 end;  //  with StringGrid1 do

хорошое : 10 000 строк вставил 3.5 секунды
плохое: не поддерживает мои язык толка ??????????
про update нигде не нашел примера везде insert

и что дальше. я безвыходном положение

@qwertehok · 10.02.2018, 11:46

Рекомендую нанять профессионала

@kobakoba7 · 10.02.2018, 12:15 **[ТС]**

qwertehok,

Сообщение от qwertehok

Рекомендую нанять профессионала

НИТУШ

вот решение вроде работает

SQL
1
2
UPDATE `praduqt` SET `kol` = `kol` - ELT(FIELD(`shtrixkodi`,'4568974213458','1234569512348','789632457891'),'55.23','78.8','89.7') WHERE 
`shtrixkodi` IN ('4568974213458','1234569512348','789632457891');

вот здесь '4568974213458','1234569512348','7896324 57891' и '55.23','78.8','89.7' здесь. передам из delphi массив строк как krapotkin научил

SQL
1
2
3
4
5
6
7
8
9
10
11
WITH StringGrid1 do
  BEGIN
    a:='';
    FOR i:=1 TO RowCount - 2 do
    BEGIN
      IF i<>1 THEN
        a:=a+',';
      a:=a+cells[8,i];
    END;
    a:=a;
  END;

ну посмотрим что получится

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@kobakoba7 3 / 3 / 0 Регистрация: 21.05.2016 Сообщений: 304
	09.02.2018, 18:33 [ТС]
	eror Миниатюры 0

@qwertehok 6000 / 4575 / 1096 Регистрация: 29.08.2013 Сообщений: 28,255 Записей в блоге: 3
	10.02.2018, 11:46
	Рекомендую нанять профессионала 0

Опции темы