Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
24 / 22 / 9
Регистрация: 23.09.2014
Сообщений: 326
1

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

23.05.2017, 17:47. Показов 1722. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Доброго времени суток всем. Не могу сообразить почему это работает...
Кликните здесь для просмотра всего текста
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 отличий... и ведь заработало!
Это вообще нормально, что в зависимости от порядка добавления параметра зависит будет ли работать запрос?
0
Лучшие ответы (1)
Сообщение: #10473543
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 23.05.2017, 17:47
Ответы с готовыми решениями:

Параметризированный запрос
Здесь уже обсуждались подобные вопросы, но у меня странная, на мой взгляд, ситуация. Делаю...

Параметризированный запрос к базе черех dataset
Добрый день! ПРоблема следующая. Делаю параметризованный зхапрос к базе во так ...

SQL запрос, работающий в MS SQL Menegment'e не работает в делфи
Требуется выполнить запрос по нажатию кнопки, запрос сначала написал в Microsoft SQL Managment, где...

SQL запрос по фрагменту строки сохраненной в таблице SQL
Прошу помощи. Есть SQL таблица-1, в ней есть столбец по имени Model_Vagona с типом данных ntext...

4
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,130
Записей в блоге: 3
23.05.2017, 19:34 2
не скажу про код - надо смотреть подробно, но вы обновляете продукцию по EAN13 и названию?
это немного не уникальные поля

и ладно PRICE (хотя цены нет в номенклатуре), но weight и ves это что? нетто и брутто?
0
24 / 22 / 9
Регистрация: 23.09.2014
Сообщений: 326
23.05.2017, 19:59  [ТС] 3
qwertehok, а на сколько высока вероятность ,что будет продукт с одинаковым EAN13 и названием? насколько я гуглил EAN13 весьма уникальный штрихкод. Может как-то не так гуглил... Буду рад увидеть ссылку опровергающую мои выводы ... ибо просто буду тогда идентифицировать продукцию по ID.
0
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,130
Записей в блоге: 3
23.05.2017, 21:06 4
не знаю про уникальность EAN13 + название - я вообще к тому что обычно делают ID (bigint) как уникальный признак, а название тут вообще не при чем

да и пользователям проще
0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
24.05.2017, 17:29 5
Лучший ответ Сообщение было отмечено vijer как решение

Решение

Цитата Сообщение от 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] = ?
и естественно определять их стоит по порядку
1
24.05.2017, 17:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 24.05.2017, 17:29
Помогаю со студенческими работами здесь

SQL и ComboBox в Delphi. Нужно чтобы при выборе специальности в комбобоксе это значение вносилось в SQL запрос
procedure TForm3.Button2Click(Sender: TObject); begin try ADOQuery1.SQL.Clear;...

SQL запрос
Приветствую. Подскажите пожалуста; Допустим есть таблицаGorod Москва Курган Петербург...

Sql запрос
Приветствую. Подскажите пожалуйста. Допустим есть таблица Id Название Idсвязь 1 абв...

SQL запрос
DataModule2.ADOQuery1.Active:=false; DataModule2.ADOQuery1.SQL.Clear; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru