[Oleghka777]

Здравствуйте тема довльно избитая но все же... Не обходимо осуществить поиск в Базе данных, в частности в таблице по содержимому текстового поля и вывести все найденые значения. Значений может быть несколько. Я сделал запрос с параметром:

Код:

SELECT*
FROM контрольная_карточка2
WHERE Краткое_содерж LIKE:krs

На форме есть edit куда нужно вводить текст для поиска и кнопка по нажатию которой должен отобразится результат поиска код кнопки

Код:

begin
 datamodule1.sodquery.Active:=false;
 datamodule1.sodquery.Parameters.ParamByName('krs').Value:=soderjedit.Text;
datamodule1.sodquery.Active:=true;
soderjedit.Clear;
findrezform4.ShowModal;
end;

Проблема в том что находит не все значение в таблице удовлетворяющие критериям поиска первые три строчки таблицы почемуто не включены в поиск.

[Кодер]

есть возможность показать сие творение?

[poli-smen]

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

Проблема в том что находит не все значение в таблице удовлетворяющие критериям поиска первые три строчки таблицы почемуто не включены в поиск.

Не, такого не может быть. Видимо действительно первые три строчки не удовлетворяют критериям поиска. И еще посмотри у компонента sodquery в свойстве Filter ничего случаем нет?
Да. Ещё эти первые строчки могут оказаться не первыми.

[Kristinoidrr]

Ребят, доброй ночи! Помогите, пожалуйста! Бьюсь уже не знаю сколько над этим..

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE ДР='+DateToStr(datetimePicker1.Date));
ADOQuery1.Active:=True;

никак не могу настроить поиск по дате! ошибка синтаксиса и всё тут..

[MiraLaklamon]

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

Ребят, доброй ночи! Помогите, пожалуйста! Бьюсь уже не знаю сколько над этим..

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE ДР='+DateToStr(datetimePicker1.Date));
ADOQuery1.Active:=True;

никак не могу настроить поиск по дате! ошибка синтаксиса и всё тут..

Дату помещай в кавычки:

Код:

ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE ДР='''+DateToStr(datetimePicker1.Date))+'''';

[Kristinoidrr]

пробовала, не хочет
"Несоответствие типов данных в выражении условия отбора"

[Kristinoidrr]

у меня тип поля ДР - дата. может из-за этого?
вот это работает:

If myFilter //булевский тип
Then
Accept := (DataSet.FieldByName('ДР').AsDateTime >= poisk1.dtp2.Date) And
(DataSet.FieldByName('ДР').AsDateTime <= poisk1.dtp4.Date)
Else Accept := True;

а по конкретной дате работать не хочет зараза

[MiraLaklamon]

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

пробовала, не хочет
"Несоответствие типов данных в выражении условия отбора"

А каким провайдером данных ты пользуешься? Это что Excel или Access?
Попробуй так:

Код:

ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE ДР=#'+FormatDateTime('mm/dd/yyyy', datetimePicker1.Date)+'#';

И обычно все проблемы с датами в SQL-запросе снимаются если с ними работать через параметры:

Код:

ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE ДР=:DateParam';
ADOQuery1.Parameters.ParamByName('DateParam').Value:=datetimePicker1.Date;