Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
kobakoba7
1 / 1 / 0
Регистрация: 21.05.2016
Сообщений: 280
09.02.2018, 01:12  [ТС] 0

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

09.02.2018, 01:12. Просмотров 667. Ответов 25
Метки (Все метки)

Ответ

Цитата Сообщение от kobakoba7 Посмотреть сообщение
вот такой у меня массив
Цитата Сообщение от krapotkin Посмотреть сообщение
что я должен понять из того, что у вас есть массив A ???
var a: array[1..5] of string;
здесь я просто подумал s эта массив ну ладно это не важно
Цитата Сообщение от krapotkin Посмотреть сообщение
стринггрид уже всё? отменился?
а как стринггрид атменит вит умения дание там записаны я должен аттуда взять значение
проста хочу разобраться из стринггрида как второй массив значений взять
Цитата Сообщение от krapotkin Посмотреть сообщение
s:='UPDATE praduqt SET kol = kol - 5 WHERE Name IN
вот где 5 написана

Добавлено через 8 минут
krapotkin, огромнейшее спасибо
насчет второго массива я сам додумался ну надеюсь во всяком случае если что опять обращусь к вам

Добавлено через 1 минуту
Delphi
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;
Добавлено через 22 часа 43 минуты

Цитата Сообщение от krapotkin Посмотреть сообщение
FDConnection1.StartTransaction;
try
* // здесь делаем все что нужно. в цикле или без него
* // если все идет хорошо то ничего не делаем и вызовется коммит
* // если нет, то достаточно вызвать raise Exception.Create('Какая-то ошибка');
* // и все ваши изменения откатятся
* FDConnection1.Commit;
except
* FDConnection1.Rollback;
* raise;
end;
не работает откат

Добавлено через 2 минуты
в цикле

Добавлено через 5 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var i: integer;
    s: string;
begin
  with StringGrid1 do
 begin
  FDConnect_gayidva;  // procedura conect
  FDConnection1.StartTransaction;
  try
   for i := 1 to RowCount - 2 do
   begin
     s:='UPDATE `praduqt` SET `kol` = `kol` - '''+Cells[4,i]+''', `suma` = `kol` * `srednoe`,`suma1` = '+
     ' `kol` * `cena` WHERE `shtrixkodi` = '''+Cells[8,i]+''' ';
   fdquery1.Active:=false;
    fdquery1.SQL.Clear;
   fdquery1.sql.text := s;
   fdquery1.execSQL;
   FDConnection1.Commit;
   end;
   except
   FDConnection1.Rollback;
   raise;
    end;
 end;
Добавлено через 1 час 29 минут
Цитата Сообщение от kobakoba7 Посмотреть сообщение
DELIMITER $$
CREATE PROCEDURE GetFruits(IN fruitArray VARCHAR(255))
BEGIN
* SET @SQL = CONCAT('UPDATE praduqt SET kol = kol - (здесь тоже массив вставить) WHERE Name IN (', fruitArray, ')');
* PREPARE stmt FROM @SQL;
* EXECUTE stmt;
* DEALLOCATE PREPARE stmt;
END$$
DELIMITER ;
если возможно конечно проста хочу чтоб в одну строку получилось запрос

Вернуться к обсуждению:
Транзакции вместе циклом из Дельфи
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2018, 01:12
Готовые ответы и решения:

Импорт кода из Дельфи-файла без установленного Дельфи
Есть файлы проекта делфи, как без установленного делфи просмотреть код...

Скажите пожалуйста почему у дельфи 6,7 нет совместимости с Windows 7 и какая версия дельфи совместима с windows 7
Скажите пожалуйста почему у дельфи 6,7 нет совместимости с Windows 7. и какая...

Транзакции в delphi
Всем доброго времени! Помогите разобрать с транзакциями. Есть задание -...

Трехзвенка и транзакции
Всем привет, просветите кто знает (понимает суть процессов) В...

Откат транзакции?
Всем привет! Такая проблема. Есть текстовый файл с большим кол-вом...

25
Другие темы раздела
Delphi БД Скрыть дату или записать значение NULL http://www.cyberforum.ru/delphi-database/thread2185006.html
Добрый день! При выполнении кода ADOQuery1.FieldByName('Data').Value := 0; в базу записывается значение "1899-12-30 00:00:00.000" как в поле "Data" записать значение NULL???? (Для поля...
Delphi БД Ошибка: 'FDQuery: Parameter 'edit.Text' not found' Мир всем и привет ! помогите пожалуйста раньше я сделал через ADOQuery не было проблем, и в чем же проблема с FDQuery? FDQuery4.SQL.Add('SELECT Count (Сана)As Число FROM WHERE BETWEEN... http://www.cyberforum.ru/delphi-database/thread2185001.html
Delphi БД Поиск в бд по выбранному значению в Combobox
Доброго времени суток! Помогите,пожалуйста,сделать поиск в программе по бд Имеется бд сделанная в access; DBGrid на форме,на котором отображается таблица через ADOTable; И три Combobox'а. Нужно...
Delphi БД ListBox занести в БД оставшиеся элементы
Подскажите пожалуйста с чего начать , чтобы перенести оставшиеся строки в listBox в таблицу
Delphi БД Несоответствие типов данных http://www.cyberforum.ru/delphi-database/thread2184978.html
Посмотрите пожалуйста выбираю из DBGrid данные m:=DBGrid1.DataSource.DataSet.FieldByName('Код').AsString; далее делаю выборку with DataModule3.ADOQuery2 do begin Close;
Delphi БД Выбор данных в DBGRID Здравствуйте.Помогите с проблемой. Необходимо изменить данные из одной формы(1) в отдельной (2).В общем, выбираю с помощью запроса данные из 2х таблиц. Использую для этого компонент ADOQuery. В... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru