Параметризированный SQL запрос

@vijer · Регистрация: 23.09.2014

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

Доброго времени суток всем. Не могу сообразить почему это работает...

Кликните здесь для просмотра всего текста

Delphi
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
34
35
36
37
38
39
40
41
procedure AddProductionBase(DBQ:TADOQuery;Product:TNonAlcoProduction);
var
  qr:TADOQuery;
  StrSQL:string;
begin
    try
      qr:=TADOQuery.Create(DBQ.Owner);
      qr.Connection := DBQ.Connection;
      qr.ParamCheck := False;
      qr.Parameters.Clear;
 
      StrSQL :=
          'INSERT INTO NonAlcoProduction (NameProduction, EAN13, PRICE,WEIGHT,VES) ' +
          'VALUES (:NameProduction, :EAN13, :PRICE,:WEIGHT,:VES)';
        qr.SQL.Text := StrSQL;
       qr.Parameters.AddParameter.Name := 'NameProduction';
        qr.Parameters.ParamByName('NameProduction').DataType := ftString;
        qr.Parameters.ParamByName('NameProduction').value := Product.Name;
 
        qr.Parameters.AddParameter.Name := 'EAN13';
        qr.Parameters.ParamByName('EAN13').DataType := ftString;
        qr.Parameters.ParamByName('EAN13').value := Product.EAN13;
 
        qr.Parameters.AddParameter.Name := 'PRICE';
        qr.Parameters.ParamByName('PRICE').DataType := ftFloat;                                                                                   //© 
        qr.Parameters.ParamByName('PRICE').value := Product.Price;
 
        qr.Parameters.AddParameter.Name := 'WEIGHT';
        qr.Parameters.ParamByName('WEIGHT').DataType := ftFloat;                                                                                   //
        qr.Parameters.ParamByName('WEIGHT').value := Product.Weight;
 
        qr.Parameters.AddParameter.Name := 'VES';
        qr.Parameters.ParamByName('VES').DataType := ftBoolean;                                                                                   //
        qr.Parameters.ParamByName('VES').value := Product.Ves;
 
        qr.ExecSQL;
 
    finally
      qr.Free;
    end;
end;

а Это - нет :

Кликните здесь для просмотра всего текста

Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
procedure UpdateProductionBase(DBQ:TADOQuery;Product:TNonAlcoProduction);
var
  qr:TADOQuery;
  StrSQL:string;
begin
    try
      qr:=TADOQuery.Create(DBQ.Owner);
      qr.Connection := DBQ.Connection;
      qr.ParamCheck := False;
      qr.Parameters.Clear;
 
      StrSQL := 'UPDATE NonAlcoProduction SET PRICE = :PRICE,WEIGHT = :WEIGHT , VES = :VES '
      +' WHERE EAN13=:EAN13 AND NameProduction = :NameProduction';
        qr.SQL.Text := StrSQL;
        qr.ParamCheck := True;
 
        qr.Parameters.AddParameter.Name := 'NameProduction';
        qr.Parameters.ParamByName('NameProduction').DataType := ftString;
        qr.Parameters.ParamByName('NameProduction').value := Product.Name;
 
        qr.Parameters.AddParameter.Name := 'EAN13';
        qr.Parameters.ParamByName('EAN13').DataType := ftString;
        qr.Parameters.ParamByName('EAN13').value := Product.EAN13;
 
        qr.Parameters.AddParameter.Name := 'PRICE';
        qr.Parameters.ParamByName('PRICE').DataType := ftFloat;
        qr.Parameters.ParamByName('PRICE').value := Product.Price;
 
        qr.Parameters.AddParameter.Name := 'WEIGHT';
        qr.Parameters.ParamByName('WEIGHT').DataType := ftFloat;
        qr.Parameters.ParamByName('WEIGHT').value := Product.Weight;
 
        qr.Parameters.AddParameter.Name := 'VES';
        qr.Parameters.ParamByName('VES').DataType := ftBoolean;
        qr.Parameters.ParamByName('VES').value := Product.Ves;
 
        qr.ExecSQL;
 
    except     {секция обработки ошибок}
        On e : EDatabaseError do {e - новый дескриптор ошибки} messageDlg(e.message,
        mtError,
        [mbOK],0); {показываем свойство message объекта e}
    end;
   qr.Free;
end;

Ошибок никаких не выдает. Просто не обновляет запись в БД.

Добавлено через 4 часа 18 минут
Чего-то я не понимаю определенно. После долгих ~~биений об стену головой~~ поисков в интернетах и на форумах я ничего не нашел. В итоге я методом научного тыка изменил не работающую процедурку вот так:

Кликните здесь для просмотра всего текста

Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
procedure UpdateProductionBase(DBQ:TADOQuery;Product:TNonAlcoProduction);
var
  qr:TADOQuery;
  StrSQL,BLA:string;
 
begin
    try
      qr:=TADOQuery.Create(DBQ.Owner);
      qr.Connection := DBQ.Connection;
      qr.ParamCheck := False;
      qr.Parameters.Clear;
 
 
      StrSQL := 'UPDATE NonAlcoProduction SET PRICE = :PRICE , WEIGHT = :WEIGHT , VES = :VES WHERE [NameProduction] = :NameProduction AND [EAN13] = :EAN13';
 
        qr.SQL.Text := StrSQL;
 
        qr.Parameters.AddParameter.Name := 'PRICE';
        qr.Parameters.ParamByName('PRICE').DataType := ftFloat;
        qr.Parameters.ParamByName('PRICE').value := Product.Price;
 
        qr.Parameters.AddParameter.Name := 'WEIGHT';
        qr.Parameters.ParamByName('WEIGHT').DataType := ftFloat;
        qr.Parameters.ParamByName('WEIGHT').value := Product.Weight;
 
        qr.Parameters.AddParameter.Name := 'VES';
        qr.Parameters.ParamByName('VES').DataType := ftBoolean;
        qr.Parameters.ParamByName('VES').value := Product.Ves;
 
        qr.Parameters.AddParameter.Name := 'NameProduction';
        qr.Parameters.ParamByName('NameProduction').DataType := ftString;
        qr.Parameters.ParamByName('NameProduction').value := Product.Name;
 
        qr.Parameters.AddParameter.Name := 'EAN13';
        qr.Parameters.ParamByName('EAN13').DataType := ftString;
        qr.Parameters.ParamByName('EAN13').value := Product.EAN13 ;
 
        qr.ExecSQL;
    except     {секция обработки ошибок}
        On e : EDatabaseError do {e - новый дескриптор ошибки} messageDlg(e.message,
        mtError,
        [mbOK],0); {показываем свойство message объекта e}
    end;
   qr.Free;
end;

Найдите 10 отличий... и ведь заработало!
Это вообще нормально, что в зависимости от порядка добавления параметра зависит будет ли работать запрос?

@qwertehok · 23.05.2017, 19:34

не скажу про код - надо смотреть подробно, но вы обновляете продукцию по EAN13 и названию?
это немного не уникальные поля

и ладно PRICE (хотя цены нет в номенклатуре), но weight и ves это что? нетто и брутто?

@vijer · 23.05.2017, 19:59 **[ТС]**

qwertehok, а на сколько высока вероятность ,что будет продукт с одинаковым EAN13 и названием? насколько я гуглил EAN13 весьма уникальный штрихкод. Может как-то не так гуглил... Буду рад увидеть ссылку опровергающую мои выводы ... ибо просто буду тогда идентифицировать продукцию по ID.

@qwertehok · 23.05.2017, 21:06

не знаю про уникальность EAN13 + название - я вообще к тому что обычно делают ID (bigint) как уникальный признак, а название тут вообще не при чем

да и пользователям проще

@YuryK · 24.05.2017, 17:29

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

Найдите 10 отличий... и ведь заработало!

главное отличие, ParamCheck
в "неработающем" коде после пары строк qr.SQL.Text := StrSQL; qr.ParamCheck := True; никаких доп. движений по созданию параметров делать не надо, нужно только определить значение и/или тип.

Но вы вместо этого добавляете ещё по одноименному параметру и их становится 10, по 2 каждого наименования.
Дальше вообще начинается лотерея: ParamByName достает только один из пары одноименных параметров. Хочется надеяться, что нужный, но как показывает ваша практика - не совсем.

Во втором варианте вы создаете параметры сами, потому их ровно 5, и вы, и ADO пользуетесь ими одинаково.

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

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

Это вообще нормально, что в зависимости от порядка добавления параметра зависит будет ли работать запрос?

запрос выглядит как-то так

SQL
1
UPDATE NonAlcoProduction SET PRICE =? , WEIGHT = ? , VES = ? WHERE [NameProduction] = ? AND [EAN13] = ?

и естественно определять их стоит по порядку

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@qwertehok 5985 / 4560 / 1095 Регистрация: 29.08.2013 Сообщений: 28,201 Записей в блоге: 3
	23.05.2017, 19:34
	не скажу про код - надо смотреть подробно, но вы обновляете продукцию по EAN13 и названию? это немного не уникальные поля и ладно PRICE (хотя цены нет в номенклатуре), но weight и ves это что? нетто и брутто? 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	23.05.2017, 19:59 [ТС]
	qwertehok, а на сколько высока вероятность ,что будет продукт с одинаковым EAN13 и названием? насколько я гуглил EAN13 весьма уникальный штрихкод. Может как-то не так гуглил... Буду рад увидеть ссылку опровергающую мои выводы ... ибо просто буду тогда идентифицировать продукцию по ID. 0

@qwertehok 5985 / 4560 / 1095 Регистрация: 29.08.2013 Сообщений: 28,201 Записей в блоге: 3
	23.05.2017, 21:06
	не знаю про уникальность EAN13 + название - я вообще к тому что обычно делают ID (bigint) как уникальный признак, а название тут вообще не при чем да и пользователям проще 0

Параметризированный SQL запрос

Решение