[Filen]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm19.Button1Click(Sender: TObject); var d1,d2:TDateTime; idAA:integer;   begin d1:=(DateEdit1.Date); d2:=(DateEdit2.Date) ; DataModule2.ADOQueryApteka.SQL.Clear; DataModule2.ADOQueryApteka.Active:=False; DataModule2.ADOQueryApteka.SQL.Add('SELECT DataProdagi,idPrepar,NamPreparat FROM [AptekaProdaga] WHERE [DataProdagi] BETWEEN DateEdit1.Date and DateEdit2.Date ORDER BY NamPreparat ASC'); DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit1.Date').Value := DateEdit1.Date;  /// Ïàðàìåòð D1 ïî óìîë÷àíèþ DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit2.Date').Value := DateEdit2.Date;   /// Ïàðàìåòð D2 ïî óìîë÷àíèþ DataModule2.ADOQueryApteka.Active:=true;

но чтобы отобрать записи еще и с указанным id не соображу как ..

Код:

1 2 3 4 5 6 7 8 9 10 11

idAA:=92123134; d1:=(DateEdit1.Date); d2:=(DateEdit2.Date) ; DataModule2.ADOQueryApteka.SQL.Clear; DataModule2.ADOQueryApteka.Active:=False; DataModule2.ADOQueryApteka.SQL.Add('SELECT DataProdagi,idPrepar,NamPreparat FROM [AptekaProdaga] WHERE [DataProdagi] BETWEEN DateEdit1.Date and DateEdit2.Date, idAA ORDER BY NamPreparat ASC'); DataModule2.ADOQueryApteka.Parameters.ParamByName('idAA').Value :=idAA; DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit1.Date').Value :=DateEdit1.Date;  /// Параметр D1 по умолчанию DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit2.Date').Value := DateEdit2.Date;   /// Параметр D2 по умолчанию DataModule2.ADOQueryApteka.Active:=true; DataModule2.ADOQueryApteka.First;

понимаю что не так , как правильно help my

[Guaho]

Код:

1 2 3

DataModule2.ADOQueryApteka.SQL.Add('SELECT DataProdagi, idPrepar, NamPreparat FROM [AptekaProdaga]'); DataModule2.ADOQueryApteka.SQL.Add('WHERE [DataProdagi] ((BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id))); DataModule2.ADOQueryApteka.SQL.Add('ORDER BY NamPreparat ASC');

где (отдельно прописать в обработчике)

Код:

1 2 3 4 5 6

var d1, d2, id: String; .... d1 := DateEdit1.Date; d2 := DateEdit2.Date; id := Edit1.Text; // к примеру

Поскольку текст SQL-запроса формируется динамически, то в данном примере параметры не используются, всё прописывается текстом.
Простыми словами, Вам в запросе должна быть строка "где дата продажи лежит в диапазоне..., и id равен такому-то".

[Filen]

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

Код:

где (отдельно прописать в обработчике)

Код:

Поскольку текст SQL-запроса формируется динамически, то в данном примере параметры не используются, всё прописывается текстом.
Простыми словами, Вам в запросе должна быть строка "где дата продажи лежит в диапазоне..., и id равен такому-то".

т.е. я правильно понимаю в моем случае

Код:

1 2 3 4 5 6 7 8 9 10

var d1,d2,id: String; idAA:Integer; ......   idAA:=9212337; ///искомый id   d1 := DAteToStr(DateEdit1.Date); d2 := DAteToStr(DateEdit2.Date); id :=IntToStr(idAA);

??
в таком случае в строке

Код:

1	DataModule2.ADOQueryApteka.SQL.Add('WHERE [DataProdagi] ((BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id )));

ошибка 'END' expected but ')' found, так понимаю что то не то с типом данных ?

[lmikle]

Да там что-то не то с кавычками и скобками.
Если не ошибаюсь, то должно быть так:

Код:

1	DataModule2.ADOQueryApteka.SQL.Add('WHERE ([DataProdagi] BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id +')');

PS. Возможно, даты надо тоже "закавычить" в запросе.

а вообще, что бы было менще путаницы, я использую функцию Format:

Код:

1	DataModule2.ADOQueryApteka.SQL.Add(Format('WHERE ([DataProdagi] BETWEEN %s AND %s) AND (idAA = %s)',[d1,d2,id]));

Если даты надо кавычить, то так:

Код:

1	DataModule2.ADOQueryApteka.SQL.Add(Format('WHERE ([DataProdagi] BETWEEN ''%s'' AND ''%s'') AND (idAA = %s)',[d1,d2,id]));

[Filen]

Код:

1 2 3

1       DataModule2.ADOQueryApteka.SQL.Add('WHERE ([DataProdagi] BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id +')');

Код:

1 2 3

1       DataModule2.ADOQueryApteka.SQL.Add(Format('WHERE ([DataProdagi] BETWEEN %s AND %s) AND (idAA = %s)',[d1,d2,id]));

ошибка
Error.JPG
истина где то рядом ..

[lmikle]

А тут проблема скорее всего со значением даты.
Надо смотреть в каком формате наде ее передавать. Возможно, д.б. YYYY-MM-DD и в кавычках. Посмтотри документацию на твою БД (скорее всего это либо Access, либо MS SQL Server, судя по синтаксису в имени поля). Тогда при получении значения в переменные d1 и d2 дату надо соотв. отформатировать. Код не даю - смотри сначала в каком формате ее надо передавать.

[Filen]

Мозг уже набекрень с этими запросами..
Пошел другим путем , через временную таблицу

Код:

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 46 47

DataModule2.ADOQueryApteka.SQL.Clear; DataModule2.ADOQueryApteka.Active:=False; DataModule2.ADOQueryApteka.SQL.Add('SELECT * FROM [AptekaProdaga] WHERE [DataProdagi] BETWEEN DateEdit1.Date and DateEdit2.Date ORDER BY NamPreparat ASC'); DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit1.Date').Value :=DateEdit1.Date;  /// Параметр D1 по умолчанию DataModule2.ADOQueryApteka.Parameters.ParamByName('DateEdit2.Date').Value := DateEdit2.Date;   /// Параметр D2 по умолчанию DataModule2.ADOQueryApteka.Active:=true; DataModule2.ADOQueryApteka.First;   DataModule2.DAtaSourceAptVrem.DataSet.Open; For i:=1 To kol Do Begin  DataModule2.ADOQueryAptVrem.Insert;     DataModule2.ADOQueryAptVrem.FieldByName('NamePrep').AsString:=DataModule2.ADOQueryApteka.FieldByName('NamPreparat').AsString;       DataModule2.ADOQueryAptVrem.FieldByName('IdName').Value:=DataModule2.ADOQueryApteka.FieldByName('IdPrepar').Value;          DataModule2.ADOQueryAptVrem.FieldByName('EdIzm').Value:=DataModule2.ADOQueryApteka.FieldByName('edIzm').Value;             DataModule2.ADOQueryAptVrem.FieldByName('CenaEd').Value:=DataModule2.ADOQueryApteka.FieldByName('CenEd').Value;                DataModule2.ADOQueryAptVrem.FieldByName('Obem').Value:=DataModule2.ADOQueryApteka.FieldByName('ObemEd').Value;                   DataModule2.ADOQueryAptVrem.FieldByName('KolProd').Value:=DataModule2.ADOQueryApteka.FieldByName('KolProdano').Value;                      DataModule2.ADOQueryAptVrem.FieldByName('ItogSumm').Value:=DataModule2.ADOQueryApteka.FieldByName('ItogoSum').Value; DataModule2.ADOQueryApteka.Next; end; DataModule2.ADOQueryAptVrem.Post;   DataModule2.ADOQueryAptVrem.SQL.Clear;      DataModule2.ADOQueryApteka.Active:=False;        DataModule2.ADOQueryAptVrem.SQL.Add('SELECT * FROM   AptekaVremenn WHERE [NamePrep] LIKE' + QuotedStr('%'+nP + '%'));             DataModule2.ADOQueryAptVrem.Active := True;                DataModule2.ADOQueryApteka.EXECSQL;   ShowMessage('TÔ     '+IntTOStr(DataModule2.ADOQueryAptVrem.RecordCount)); //Результат   //Очищаем временную таблицу   With DataModule2.ADOQueryAptVrem do begin DataModule2.ADOQueryAptVrem.SQL.Clear; DataModule2.ADOQueryAptVrem.SQL.Text :='DELETE * FROM AptekaVremenn'; //удаляем SQL запросом. Намного быстрее. Prepared :=True; DataModule2.ADOQueryAptVrem.EXECSQL; end;   //// Воссстанавливаем ADOQueryApteka /////////////////// DataModule2.ADOQueryApteka.Close; DataModule2.ADOQueryApteka.Open; DataModule2.ADOQueryApteka.SQL.Clear; DataModule2.ADOQueryApteka.Active:=False; DataModule2.ADOQueryApteka.SQL.Add('Select*From AptekaProdaga Where idDat=:Id_Daty'); DataModule2.ADOQueryApteka.Active:=true; /////////////////////////////////////////////////////////

Работает 1 проход, но если повторить ошибка ..
err.JPG
понимаю что где то туплю 'неподецки', совсем запутался где OPEN где EXECSQL, (смешались в кучу люди кони), не сочтите за труд

[lmikle]

open - когда есть возвращаемый результат, т.е. запросы SELECT
ExecSQL - когда выполняется запрос, который который не возвращает результат, т.е. INSERT, UPDATE, DELETE