SQL-запрос работает наполовину. Нужен совет

@KAV1989 · Регистрация: 23.07.2013

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

Здравствуйте! Проблема с SQL-запросом. В Delphi Сиэтл установил ADOConnection, ADOQuery и DBGrid. ADOConnection связан с базой Access 2003 формата через драйвер Jet 4.
Использую запрос, чтобы вытащить из базы данных заявок от пользователей те заявки, которые удовлетворяют следующим требованиям:

1) Дата создания заявки (DataSozd) находится между Dat1 и Dat2.

2)Дата создания заявки меньше, чем Dat1 и её состояние (Sostoyanie) = ‘Не выполнено’ + у заявки есть копии (ShhetchikKopij > 0)

3) Дата создания заявки меньше, чем Dat1, но её состояние уже равно ‘Выполнено’ и дата выполнения (DataVypoln) > Dat1 + у заявки тоже есть копии (ShhetchikKopij > 0)

Вот кусок кода:

Delphi

ADOQuery1.SQL.Add('Select * From Zayavki Where (((DataSozd>=:Dat1) And (DataSozd<=:Dat2)) Or (DataSozd<=:Dat1) And
((Sostoyanie=' + QuotedStr('Не выполнено') + ') Or ((Sostoyanie=' + QuotedStr('Выполнено') + ') And (DataVypoln Is Not Null) And (DataVypoln>=:Dat3))) And (ShhetchikKopij>0));');
ADOQuery1.Parameters.ParamByName('Dat1').Value := Data1;
ADOQuery1.Parameters.ParamByName('Dat2').Value := Data2;
ADOQuery1.Parameters.ParamByName('Dat3').Value := Data1;

Пояснения:

Zayavki – имя таблицы, содержащей заявки от пользователей на выполнение каких-то работ.
DataSozd – поле типа Дата/Время – Дата создания заявки
Sostoyanie – поле типа Текст – в нём могут храниться только 2 значения (я проверял, 3-го нет нигде): Выполнено или Не выполнено.
DataVypoln - поле типа Дата/Время – Дата выполнения заявки
ShhetchikKopij – поле типа Длинное целое – Счетчик количества копий данной заявки
Dat1, Dat2 и Dat3 – параметры типа Дата/Время, Data1 и Data2 - переменные типа TDateTime.

Запрос в таком виде НЕ выполняется, ошибок никаких НЕ выдает, просто пустой DBGrid и ADOQuery.RecordCount = 0. Если запрос разбить на 2 отдельных запроса: 1 запрос - условие, которое перед самым первым "Or", 2 запрос - всё остальное, то эти 2 запроса по отдельности прекрасно ВЫПОЛНЯЮТСЯ.

КАК слить их воедино и в чём причина? Спасибо.

@Nanotentacle · 24.10.2016, 11:29

Для начала я бы проверил расстановку скобок, ибо там просто атас творится.

Delphi

var st:String;
..
begin
st := 'SELECT * FROM Zayavki WHERE (';
st := st + '((DataSozd>=:Dat1) AND (DataSozd<=:Dat2)) ';
st := st + ' OR ';
st := st + '((DataSozd<=:Dat1) AND (Sostoyanie=' + QuotedStr('Не выполнено') + ') AND (ShhetchikKopij>0)';
st := st + ' OR ';
st := st + '((Sostoyanie=' + QuotedStr('Выполнено') + ') AND (DataVypoln Is Not Null) And (DataVypoln>=:Dat3) AND (ShhetchikKopij>0))';
ADOQuery1.SQL.Text := st;
..
end;

Во-вторых, у вас в базе строки "Выполнено" и "Не выполнено" хранятся в кавычках?

@KAV1989 · 24.10.2016, 11:32 **[ТС]**

Добавлено через 1 минуту
Проверил уже раз 100500. Благо Делфи подсвечивает их

@Nanotentacle · 24.10.2016, 11:34

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

@KAV1989 · 24.10.2016, 11:34 **[ТС]**

Нет. Там, где значения Выполнено и Не выполнено - это текстовое поле

@Nanotentacle · 24.10.2016, 11:48

Delphi

var st:String;
..
begin
st := 'SELECT * FROM Zayavki WHERE (';
st := st + '((DataSozd>=:Dat1) AND (DataSozd<=:Dat2)) ';
st := st + ' OR ';
st := st + '((DataSozd<=:Dat1) AND (Sostoyanie=:nvp) AND (ShhetchikKopij>0)';
st := st + ' OR ';
st := st + '((Sostoyanie=:vp) AND (DataVypoln Is Not Null) And (DataVypoln>=:Dat3) AND (ShhetchikKopij>0))';
st := st +')';
ADOQuery1.SQL.Text := st;
ADOQuery1.Parameters.ParamByName('vp').Value := 'Выполнено';
ADOQuery1.Parameters.ParamByName('nvp').Value := 'Не выполнено';
..
end;

Все еще жду код с раздельными условиями.

@KAV1989 · 24.10.2016, 12:51 **[ТС]**

1 запрос:

SQL

'Select * From Zayavki Where (
((DataSozd<=:Dat1) And (ShhetchikKopij>0) And 
    ((Sostoyanie=' + QuotedStr('Не выполнено') + ') Or 
    ((Sostoyanie=' + QuotedStr('Выполнено') + ') And (DataVypoln Is Not Null) And (DataVypoln>=:Dat1))) )
);'

2 запрос:

SQL

1	'Select * From Zayavki Where ((DataSozd>=:Dat1) And (DataSozd<=:Dat2));'

По-отдельности оба они работают. Каждый выдаёт свои записи. Но если пытаюсь соединить их в одну строку запроса с помощью Or , то срабатывает только тот запрос, который стоит первым в этой строке.

@Nanotentacle · 24.10.2016, 13:25

Попробуйте, все же, применить этот код:

Delphi

var st:String;
..
begin
st := 'SELECT * FROM Zayavki WHERE (';
st := st + '((DataSozd>=:Dat1) AND (DataSozd<=:Dat2))';
st := st + ' OR ';
st := st + '((DataSozd<=:Dat1) AND (Sostoyanie=:nvp) AND (ShhetchikKopij>0))';
st := st + ' OR ';
st := st + '((Sostoyanie=:vp) AND (DataVypoln Is Not Null) And (DataVypoln>=:Dat3) AND (ShhetchikKopij>0))';
st := st +')';
ADOQuery1.SQL.Text := st;
ADOQuery1.Parameters.ParamByName('vp').Value := 'Выполнено';
ADOQuery1.Parameters.ParamByName('nvp').Value := 'Не выполнено';
..
end;

Он хоть и нагляднее, чем код выше, но и то я со скобками путаюсь. Исключим человеческий фактор.

@KAV1989 · 25.10.2016, 02:10 **[ТС]**

Ничего не изменилось.

Добавлено через 46 минут
Я почти не знаю SQL. Разбираюсь с ним по мере написания проги. Я так понимаю тут надо что-то с Union прописывать в запросе.

@Nanotentacle · 25.10.2016, 09:07

Скиньте получившийся код.

UNION сам по себе работает просто: он объединяет результаты двух сходных запросов:

SQL

(SELECT * FROM Zayavki WHERE (
((DataSozd<=:Dat1) AND (ShhetchikKopij>0) AND 
    ((Sostoyanie=' + QuotedStr('Не выполнено') + ') OR 
    ((Sostoyanie=' + QuotedStr('Выполнено') + ') AND (DataVypoln IS NOT NULL) AND (DataVypoln>=:Dat1))) )
))UNION(SELECT * FROM Zayavki WHERE ((DataSozd>=:Dat1) AND (DataSozd<=:Dat2)));

@KAV1989 · 25.10.2016, 23:06 **[ТС]**

Спасибо. Сам разобрался. Причина крылась в том, что если в запросе параметр с одним и тем же именем встречается во 2 и более раз, то он игнорируется. Пришлось создавать аж 4 параметра и присваивать им одну и ту же переменную. Это же нерационально! У них какая-то хрень с параметрами ещё с Делфи 7 идёт, а вроде ведь солидная контора эта...Borland, щас Embarcadero или как их там...

@Nanotentacle · 26.10.2016, 07:19

Не по теме:

KAV1989, думаю, это чем-то обусловлено, о чем мы не догадываемся. Я слишком далек от того, чтобы считать людей, которые могут написать компонент работы с базой данных, которым пользуется куча людей, настолько невнимательными, что они будут допускать подобные ошибки. Скорее всего, какая-то специфика.

@ZikWall · 26.10.2016, 18:15

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

Скорее всего, какая-то специфика.

Не по теме:

Ага, было дело в делфи проблемы с Access, до сих пор не понял синтаксиса, каждый JOIN обрамлять в скобочки...

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

Delphi

ADOQuery1.SQL.Text:= ('SELECT trp.therapy_name, cl.first_name, cl.client_name, cl.last_name,' +
                             'a.nickname, doc.first_name,' +
                             'a.animal_id,' +
                             'cl.client_id,' +
                             'doc.doctor_id,' +
                             'dg.diagnosis_id,' +
                             'trp.therapy_id ' +
                      'FROM ( ' +  { 1 }
                            '( ' +  { 2  }
                             '( ' +  { 3 }
                              '(animals a ' +
                      'INNER JOIN ' +
                        'clients cl ' +
                      'ON ' +
                        'cl.client_id = a.client_id_ref) ' +
                      'INNER JOIN ' +
                        'doctors doc ' +
                      'ON ' +
                        'doc.doctor_id = a.doctor_id_ref) ' +
                      'INNER JOIN ' +
                        'diagnosis dg '  +
                      'ON ' +
                        'dg.diagnosis_id = a.diagnosis_id_ref)' +
                      'INNER JOIN ' +
                        'therapy trp ' +
                      'ON ' +
                        'a.animal_id = trp.animal_id_ref)');

@KAV1989 0 / 0 / 0 Регистрация: 23.07.2013 Сообщений: 50
	24.10.2016, 11:32 [ТС]	3
	Добавлено через 1 минуту Проверил уже раз 100500. Благо Делфи подсвечивает их 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	24.10.2016, 11:34	4
	Так, я в своем коде забыл поставить последнюю скобку в запрос. Запросы с раздельными условиями в студию. 0

@KAV1989 0 / 0 / 0 Регистрация: 23.07.2013 Сообщений: 50
	24.10.2016, 11:34 [ТС]	5
	Нет. Там, где значения Выполнено и Не выполнено - это текстовое поле 0

@KAV1989 0 / 0 / 0 Регистрация: 23.07.2013 Сообщений: 50
	25.10.2016, 02:10 [ТС]	9
	Ничего не изменилось. Добавлено через 46 минут Я почти не знаю SQL. Разбираюсь с ним по мере написания проги. Я так понимаю тут надо что-то с Union прописывать в запросе. 0

@KAV1989 0 / 0 / 0 Регистрация: 23.07.2013 Сообщений: 50
	25.10.2016, 23:06 [ТС]	11
	Спасибо. Сам разобрался. Причина крылась в том, что если в запросе параметр с одним и тем же именем встречается во 2 и более раз, то он игнорируется. Пришлось создавать аж 4 параметра и присваивать им одну и ту же переменную. Это же нерационально! У них какая-то хрень с параметрами ещё с Делфи 7 идёт, а вроде ведь солидная контора эта...Borland, щас Embarcadero или как их там... 0

@Nanotentacle
	26.10.2016, 07:19 #12
	Не по теме: KAV1989, думаю, это чем-то обусловлено, о чем мы не догадываемся. Я слишком далек от того, чтобы считать людей, которые могут написать компонент работы с базой данных, которым пользуется куча людей, настолько невнимательными, что они будут допускать подобные ошибки. Скорее всего, какая-то специфика. 0