Обновляемый запрос или SET = (SELECT) - (value)

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

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

Есть 2 запроса. Выглядят следующим образом :

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

Delphi

 try
    qr := TADOQuery.Create(DBQ.Owner);
//Первый запрос  
    try
      qr.Connection := DBQ.Connection;
      StrSQL := '(SELECT AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie WHERE SpisanieID IN' +
      '(SELECT SpisanieID FROM SPISANIE WHERE IsEGAIS = False and IsConfirm = False))';
      qr.sql.Text := StrSQL;
 
      qr.Open;
      if qr.RecordCount > 0 then
       begin
         SLSpisProduction := TList<recRestSpis>.Create;
         for I := 0 to qr.RecordCount - 1 do
         begin
           MyRecord.alcCode := qr.FieldByName('AlcCode').AsString;
           MyRecord.RegFormB := qr.FieldByName('RegFormB').AsString;
           MyRecord.Count := qr.FieldByName('Kolichestvo').AsString;
           SLSpisProduction.Add(MyRecord);
         end;
       end;
    finally
      qr.Free;
    end;
//    StrSQL := 'UPDATE ContentRest SET Kolichestvo = ((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+
//     qr.FieldByName('AlcCode').AsString +''') AND (RegFormB = '''+ qr.FieldByName('RegFormB').AsString +''')) - '+ qr.FieldByName('Kolichestvo').AsString +' )'+
//    ' WHERE ((RegFormB = ''' + qr.FieldByName('RegFormB').AsString + ''') AND (AlcCode = ''' + qr.FieldByName('AlcCode').AsString + '''))';
 //Второй запрос  
  try
      qr := TADOQuery.Create(DBQ.Owner);
      qr.Connection := DBQ.Connection;
      for i := 0 to SLSpisProduction.Count - 1 do
      begin
        StrSQL := 'UPDATE ContentRest SET Kolichestvo = ((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+
              recRestSpis(SLSpisProduction[i]).alcCode +''') AND (RegFormB = '''+ recRestSpis(SLSpisProduction[i]).RegFormB +''')) - '+ recRestSpis(SLSpisProduction[i]).Count +' )'+
             ' WHERE ((RegFormB = ''' + recRestSpis(SLSpisProduction[i]).RegFormB + ''') AND (AlcCode = ''' + recRestSpis(SLSpisProduction[i]).alcCode + '''))';
        qr.sql.Text := StrSQL;
        qr.ExecSQL;
      end;
    finally
      if Assigned(SLSpisProduction) then
      SLSpisProduction.free;
      qr.Free;
    end;
  except
     on e:exception do
     ShowMessage(e.message);
  end;

1. Первый запрос отрабатывает адекватно. Рекорд заполняется всё хорошо. Второй запрос выводит ошибку ©"В операции должен использоваться обновляемый запрос". Погуглив эту ошибку пришел к выводу, что либо разделить второй запрос на два (SELECT и UPDATE). Либо использовать INSERT и DELETE.
2. Мне почему то кажется ,что это можно сделать гораздо меньшим количеством запросов.

PS: что собственно требуется вообще этими запросами сделать:
1. Найти AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie ( в общем смотрите 1ый запрос там всё просто)
2. Найти Kolichestvo в таблице ContentRest По AlcCode,RegFormB.
3. Вычислить разницу ContentRest.Kolichestvo - ContentSpisanie.Kolichestvo.
4. Обновить запись в таблице ContentRest.Kolichestvo на результат разницы.

@qwertehok · 09.11.2017, 19:39

а в чем вопрос то?

@xxbesoxx · 09.11.2017, 21:40

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

2. Мне почему то кажется

Вы как думайте, что при SELECT выполнять UPDATE это нормально ?
1) На каком СУБД вы создали БД ?!
2) Что у вас есть на это БД и что трбутся ?

@vijer · 10.11.2017, 08:21 **[ТС]**

qwertehok,
1. Хочу всё сделать минимальным количеством запросов.
2. Определенно кажется что :

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

1. Найти AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie ( в общем смотрите 1ый запрос там всё просто)
2. Найти Kolichestvo в таблице ContentRest По AlcCode,RegFormB.

как минимум это можно сделать одним запросом .... только вот я не догоняю как)

xxbesoxx,

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

1) На каком СУБД вы создали БД ?!

- Access. Создавал не я. Работать приходится мне.

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

2) Что у вас есть на это БД?

- там много чего есть и это собственно не важно

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

что трбутся ?

-

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

1. Найти AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie ( в общем смотрите 1ый запрос там всё просто)
2. Найти Kolichestvo в таблице ContentRest По AlcCode,RegFormB.
3. Вычислить разницу ContentRest.Kolichestvo - ContentSpisanie.Kolichestvo.
4. Обновить запись в таблице ContentRest.Kolichestvo на результат разницы.

Минимальным количеством запросов хочу обойтись.

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

Вы как думайте, что при SELECT выполнять UPDATE это нормально ?

С SQL знаком плохо ... но учуся потихонечку.

@D1973 · 10.11.2017, 08:49

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

UPDATE ContentRest SET Kolichestvo = ((SELECT Kolichestvo...

Access не поддерживает вложенные запросы.

@vijer · 10.11.2017, 09:25 **[ТС]**

D1973,

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

Access не поддерживает вложенные запросы.

Скорее не так. Ведь первый запрос по сути вложенный. Вполне он поддерживает. А вот конструкция UPDATE ... SET ... SELECT (...) - тут является бредом с точки зрения SQL так как SELECT теоретически (да и практически но не в моем случае) может вернуть несколько значений. Или я не прав? И такая конструкция например в MSSQL сработает? хотя как-то сомнительно...

Скандербег · 10.11.2017, 09:56

Второй запрос вполне может быть работоспособным.
Пара замечаний.
Существенная ошибка - значения чисел в текст запроса не могут передаваться заключенными в кавычки (кавычки только для текста и в других СУБД для дат). Если, конечно, типы полей числовые. Если же не числовые, то тогда и выполнять арифметические действия в запросе невозможно.
И следом, зачем вычислять разность в тексте запроса (не всегда и получится), когда лучше это сделать в переменной и это значение передать в текст запроса.
Пусть даже для этого придется преобразовать текстовые представления чисел в числовые значения, а для передачи в запрос значение разности обратно в текст. Все равно в этом случае синтаксис запроса пострадает меньше

@vijer · 10.11.2017, 10:19 **[ТС]**

Скандербег,

Сообщение от Скандербег

И следом, зачем вычислять разность в тексте запроса

Оюъясню я же хотел обойтись минимальным количеством запросов. А соответсвенно не сделав

Delphi

1 2	((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+ * * * * * * * recRestSpis(SLSpisProduction[i]).alcCode +''') AND (RegFormB = '''+ recRestSpis(SLSpisProduction[i]).RegFormB +'''))

в отдельном запросе я не смогу присвоить это значение в переменную и вычислить разность...

Сообщение от Скандербег

Существенная ошибка - значения чисел в текст запроса не могут передаваться заключенными в кавычки (кавычки только для текста и в других СУБД для дат). Если, конечно, типы полей числовые. Если же не числовые, то тогда и выполнять арифметические действия в запросе невозможно.

А вот тут я не понял... Да я добавляю так

Delphi

1	'+ recRestSpis(SLSpisProduction[i]).Count +'

но в тексте запроса они будут без ковычек как числовые ... ведь строковые я добавляю так

Delphi

1	'''+ recRestSpis(SLSpisProduction[i]).RegFormB +'''

.
Вот ShowMessage StrSQL.

Обновляемый запрос или SET = (SELECT) - (value)

И да типа полей числовые.
Так что моя вера в то что второй запрос работоспособен как то угасла)

Скандербег · 10.11.2017, 11:15

Уточню.
Если передавать числовое значение в текст запроса, то оно НЕ ДОЛЖНО ОБРАМЛЯТЬСЯ КАВЫЧКАМИ.

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

ведь строковые я добавляю так

Delphi

1	'''+ recRestSpis(SLSpisProduction[i]).RegFormB +'''

Именно так и нельзя делать, если значение RegFormB - это числовое значение в текстовом представлении.

---
Вот это выражение должно вычислять разность между двумя значениями, которые находятся в строковом представлении:

Delphi

1	...'''+ recRestSpis(SLSpisProduction[i]).RegFormB +''')) - '+ recRestSpis(SLSpisProduction[i]).Count

Его и предлагается вычислить с использованием промежуточной переменной, а НЕ ЗАПРОСОМ.
Примерно так:

Delphi

  Vr := StrToInt(recRestSpis(SLSpisProduction[i]).RegFormB) + 
        StrToInt(recRestSpis(SLSpisProduction[i]).Count);
  //затем вычисленное значение вставить в запрос:
  '... AND (RegFormB = '+IntTostr(Vr)+ ' WHERE ...'

Это приводит к лишним преобразованием, но сильно облегчает жизнь тому, кто формирует сложные запросы.

@vijer · 10.11.2017, 11:48 **[ТС]**

Скандербег, Эммм.. нет. c RegFormB никаких вычислений не производится. RegFormB строковый. А вычитание я произвожу(Пытался произвести из SELECT`а).
Этого вот селекта :

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

((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+
recRestSpis(SLSpisProduction[i]).alcCode +''') AND (RegFormB = '''+ recRestSpis(SLSpisProduction[i]).RegFormB +'''))

На скрине же видно что это текст

@vijer · 10.11.2017, 12:06 **[ТС]**

Ещё пожалуй добавлю: чтобы внести ясность Типы полей Все кроме полей [Kolichestvo] Строковые. Поля [Kolichestvo] числовые.

Скандербег · 10.11.2017, 12:20

Не по теме:

Без пол-литра и без проекта с базой вряд ли разобрать, что к чему, зачем и в чем причина проблемы.

@vijer · 10.11.2017, 13:40 **[ТС]**

В общем сделал 3мя запросами 2 из которых в цикле

.

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

Delphi

  try
    qr := TADOQuery.Create(DBQ.Owner);
    try
      qr.Connection := DBQ.Connection;
      StrSQL := '(SELECT AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie WHERE SpisanieID IN' +
      '(SELECT SpisanieID FROM SPISANIE WHERE IsEGAIS = False and IsConfirm = False))';
      qr.sql.Text := StrSQL;
 
      qr.Open;
      if qr.RecordCount > 0 then
       begin
         SLSpisProduction := TList<recRestSpis>.Create;
         for I := 0 to qr.RecordCount - 1 do
         begin
           MyRecord.alcCode := qr.FieldByName('AlcCode').AsString;
           MyRecord.RegFormB := qr.FieldByName('RegFormB').AsString;
           MyRecord.Count := qr.FieldByName('Kolichestvo').AsString;
           SLSpisProduction.Add(MyRecord);
         end;
       end;
    finally
      qr.Free;
    end;
//    StrSQL := 'UPDATE ContentRest SET Kolichestvo = ((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+
//     qr.FieldByName('AlcCode').AsString +''') AND (RegFormB = '''+ qr.FieldByName('RegFormB').AsString +''')) - '+ qr.FieldByName('Kolichestvo').AsString +' )'+
//    ' WHERE ((RegFormB = ''' + qr.FieldByName('RegFormB').AsString + ''') AND (AlcCode = ''' + qr.FieldByName('AlcCode').AsString + '''))';
    if Assigned(SLSpisProduction) then
    begin
      for i := 0 to SLSpisProduction.Count - 1 do
      begin
        try
          qr := TADOQuery.Create(DBQ.Owner);
          qr.Connection := DBQ.Connection;
            StrSQL := 'SELECT Kolichestvo FROM ContentRest WHERE ((AlcCode = '''+
            recRestSpis(SLSpisProduction[i]).alcCode +''') AND (RegFormB = '''+ recRestSpis(SLSpisProduction[i]).RegFormB +'''))';
           // ShowMessage(StrSQL);
            qr.sql.Text := StrSQL;
            qr.Open;
            if qr.RecordCount > 0 then
            begin
              MyRecord.alcCode := recRestSpis(SLSpisProduction[i]).alcCode;
              MyRecord.RegFormB := recRestSpis(SLSpisProduction[i]).RegFormB;
              MyRecord.Count := FloatToStr(qr.FieldByName('Kolichestvo').AsFloat - StrToFloat(recRestSpis(SLSpisProduction[i]).Count));
              SLSpisProduction.Items[i] := MyRecord;
            end;
        finally
          qr.Free;
        end;
 
        try
          qr := TADOQuery.Create(DBQ.Owner);
          qr.Connection := DBQ.Connection;
          StrSQL := 'UPDATE ContentRest SET Kolichestvo = ' + recRestSpis(SLSpisProduction[i]).Count +
               ' WHERE ((RegFormB = ''' + recRestSpis(SLSpisProduction[i]).RegFormB + ''') AND (AlcCode = ''' + recRestSpis(SLSpisProduction[i]).alcCode + '''))';
          qr.sql.Text := StrSQL;
          qr.ExecSQL;
        finally
          qr.Free;
        end;
      end;
 
      if Assigned(SLSpisProduction) then
      SLSpisProduction.free;
    end;
  except
     on e:exception do
     ShowMessage(e.message);
  end;

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	09.11.2017, 19:39	2
	а в чем вопрос то? 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,554
	09.11.2017, 21:40	3
	Сообщение от vijer 2. Мне почему то кажется Вы как думайте, что при SELECT выполнять UPDATE это нормально ? 1) На каком СУБД вы создали БД ?! 2) Что у вас есть на это БД и что трбутся ? 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	10.11.2017, 08:21 [ТС]	4
	qwertehok, 1. Хочу всё сделать минимальным количеством запросов. 2. Определенно кажется что : Сообщение от vijer 1. Найти AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie ( в общем смотрите 1ый запрос там всё просто) 2. Найти Kolichestvo в таблице ContentRest По AlcCode,RegFormB. как минимум это можно сделать одним запросом .... только вот я не догоняю как) xxbesoxx, Сообщение от xxbesoxx 1) На каком СУБД вы создали БД ?! - Access. Создавал не я. Работать приходится мне. Сообщение от xxbesoxx 2) Что у вас есть на это БД? - там много чего есть и это собственно не важно Сообщение от xxbesoxx что трбутся ? - Сообщение от vijer 1. Найти AlcCode,RegFormB,Kolichestvo FROM ContentSpisanie ( в общем смотрите 1ый запрос там всё просто) 2. Найти Kolichestvo в таблице ContentRest По AlcCode,RegFormB. 3. Вычислить разницу ContentRest.Kolichestvo - ContentSpisanie.Kolichestvo. 4. Обновить запись в таблице ContentRest.Kolichestvo на результат разницы. Минимальным количеством запросов хочу обойтись. Сообщение от xxbesoxx Вы как думайте, что при SELECT выполнять UPDATE это нормально ? С SQL знаком плохо ... но учуся потихонечку. 0

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,812 Записей в блоге: 3
	10.11.2017, 08:49	5
	Сообщение от vijer UPDATE ContentRest SET Kolichestvo = ((SELECT Kolichestvo... Access не поддерживает вложенные запросы. 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	10.11.2017, 09:25 [ТС]	6
	D1973, Сообщение от D1973 Access не поддерживает вложенные запросы. Скорее не так. Ведь первый запрос по сути вложенный. Вполне он поддерживает. А вот конструкция UPDATE ... SET ... SELECT (...) - тут является бредом с точки зрения SQL так как SELECT теоретически (да и практически но не в моем случае) может вернуть несколько значений. Или я не прав? И такая конструкция например в MSSQL сработает? хотя как-то сомнительно... 0

Скандербег 1074 / 987 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	10.11.2017, 09:56	7
	Второй запрос вполне может быть работоспособным. Пара замечаний. Существенная ошибка - значения чисел в текст запроса не могут передаваться заключенными в кавычки (кавычки только для текста и в других СУБД для дат). Если, конечно, типы полей числовые. Если же не числовые, то тогда и выполнять арифметические действия в запросе невозможно. И следом, зачем вычислять разность в тексте запроса (не всегда и получится), когда лучше это сделать в переменной и это значение передать в текст запроса. Пусть даже для этого придется преобразовать текстовые представления чисел в числовые значения, а для передачи в запрос значение разности обратно в текст. Все равно в этом случае синтаксис запроса пострадает меньше 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	10.11.2017, 11:48 [ТС]	10
	Скандербег, Эммм.. нет. c RegFormB никаких вычислений не производится. RegFormB строковый. А вычитание я произвожу(Пытался произвести из SELECT`а). Этого вот селекта : Сообщение от vijer ((SELECT Kolichestvo FROM ContentRest WHERE (AlcCode = '''+ recRestSpis(SLSpisProduction[i]).alcCode +''') AND (RegFormB = '''+ recRestSpis(SLSpisProduction[i]).RegFormB +''')) На скрине же видно что это текст 0

@vijer 24 / 22 / 9 Регистрация: 23.09.2014 Сообщений: 326
	10.11.2017, 12:06 [ТС]	11
	Ещё пожалуй добавлю: чтобы внести ясность Типы полей Все кроме полей [Kolichestvo] Строковые. Поля [Kolichestvo] числовые. 0

Скандербег
	10.11.2017, 12:20 #12
	Не по теме: Без пол-литра и без проекта с базой вряд ли разобрать, что к чему, зачем и в чем причина проблемы. 0