Параметризированный 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 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 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 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	23.05.2017, 21:06
	не знаю про уникальность EAN13 + название - я вообще к тому что обычно делают ID (bigint) как уникальный признак, а название тут вообще не при чем да и пользователям проще 0

Опции темы

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

Решение