Проблема с поиском в БД - БД в Delphi

Evgenii · 22.06.2009, 00:36

Такая ситуация: При вводе в Tedit какого бы то нибыло символа для поиска в базе, неизменно возникает сообщение: "Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру". Или:
"Аргументы имеют неверный тип, выходят за пределы допустимого диапазона, или вступают в конфликт друг с другом"
Несколько дней на этом уже торможу и никак не пойму в чем здесь дело!!!
База: MS Access, соединение: ADO. Для поиска используются 3 tedita. Первый осуществляет поиск по номеру, второй по дате и третий по фамилии. В Teditе следующий код для номеров:

Код:

begin
if Length(Edit1.text)>0 then
form4.xd.Filtered:=true
else
form4.xd.Filtered:=false;
form4.xd.Filter:='Номера дисков LIKE *' +Form4.Edit1.Text+'*';
end;

Для даты:

Код:

begin
if Length(Edit3.text)>0 then
form4.xd.Filtered:=true
else
form4.xd.Filtered:=false;
form4.xd.Filter:='Дата='''+Edit3.Text+'''';
end;

Для фамилии аналогично..
При запуске программы, ввожу в tedit какойнибудь символ, и тутже появляется чертово сообщение. Бывает что при первом вводе даже все впорядке, нужная строка находится, а при повторном поиске сообщение все равно появляется!!!
Подскажите пожалуйста в чем же здесь может быть дело! Буду невероятно благодарен!!!

фЁдОр · 22.06.2009, 11:59

вам одновременно нужно осуществлять поиск по трем категориям или это долно быть на выбор пользователя? почему бы не использовать Like или Locate??

Serge_Bliznykov · 22.06.2009, 14:14

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

Stilet · 22.06.2009, 14:25

Цитата:

очень не нравится имя поля с пробелом!

Верно. Их нужно заключать в [] -

Код:

form4.xd.Filter:='[Номера дисков] LIKE *' +Form4.Edit1.Text+'*';

Evgenii · 22.06.2009, 16:14

Нет. не в этом здесь дело... Сообщение всеравно появляется хоть с квадратными скобками хоть без них

Serge_Bliznykov · 22.06.2009, 16:24

а так?

Код:

form4.xd.Filter:='[Номера дисков] LIKE ''*' +Form4.Edit1.Text+'*''';

Если код выше тоже не сработал, то xd - это у Вас что? Туда точно нужное поле выбирается?
Проект запаковывайте в архив + туда же тестовую базку и цепляйте сюда. посмотрим, что там не так...

Evgenii · 22.06.2009, 17:05

и так тоже не помогает

Хорошо. Сейчас упакую в архив
То что выбирается нужное поле-это точно! Когда поиск осуществляется по точному значению (=), все в порядке! никаких проблем! но этот поиск мне не подходит, нужно найти фрагмент в строке, соответственно используется like. И вот тут начинаются какие то несоответствия типов!!!

Evgenii · 22.06.2009, 17:18

В архиве содержится программа и бд

Evgenii · 22.06.2009, 22:05

Ну есть у когонибудь хоть какое предположение что же здесь не так?!?!?

Serge_Bliznykov · 22.06.2009, 22:53

да как же можно сказать, если Вы в исходники не положили файл Unit6,
который лежит у Вас:
C:\Documents and Settings\Master&TT\Мои документы\Borland Studio Projects\Unit6.pas

я Вам больше скажу. я ни в одной таблице (из трёх) не нашёл поля, по которому Вы пытаетесь искать (Номера дисков)
Правда, есть поле "Номера сданных дисков"... может Вы имя поля перепутали?!

22.06.2009, 00:36	#1
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	Проблема с поиском в БД Такая ситуация: При вводе в Tedit какого бы то нибыло символа для поиска в базе, неизменно возникает сообщение: "Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру". Или: "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона, или вступают в конфликт друг с другом" Несколько дней на этом уже торможу и никак не пойму в чем здесь дело!!! База: MS Access, соединение: ADO. Для поиска используются 3 tedita. Первый осуществляет поиск по номеру, второй по дате и третий по фамилии. В Teditе следующий код для номеров: Код: `begin if Length(Edit1.text)>0 then form4.xd.Filtered:=true else form4.xd.Filtered:=false; form4.xd.Filter:='Номера дисков LIKE ' +Form4.Edit1.Text+''; end;` Для даты: Код: `begin if Length(Edit3.text)>0 then form4.xd.Filtered:=true else form4.xd.Filtered:=false; form4.xd.Filter:='Дата='''+Edit3.Text+''''; end;` Для фамилии аналогично.. При запуске программы, ввожу в tedit какойнибудь символ, и тутже появляется чертово сообщение. Бывает что при первом вводе даже все впорядке, нужная строка находится, а при повторном поиске сообщение все равно появляется!!! Подскажите пожалуйста в чем же здесь может быть дело! Буду невероятно благодарен!!! Последний раз редактировалось Evgenii; 22.06.2009 в 00:45.

22.06.2009, 16:24	#6
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	а так? Код: `form4.xd.Filter:='[Номера дисков] LIKE ''' +Form4.Edit1.Text+'''';` Если код выше тоже не сработал, то xd - это у Вас что? Туда точно нужное поле выбирается? Проект запаковывайте в архив + туда же тестовую базку и цепляйте сюда. посмотрим, что там не так...

22.06.2009, 17:05	#7
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	и так тоже не помогает Хорошо. Сейчас упакую в архив То что выбирается нужное поле-это точно! Когда поиск осуществляется по точному значению (=), все в порядке! никаких проблем! но этот поиск мне не подходит, нужно найти фрагмент в строке, соответственно используется like. И вот тут начинаются какие то несоответствия типов!!! Последний раз редактировалось Evgenii; 22.06.2009 в 17:07.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите с поиском	Bestmachin	БД в Delphi	9	12.06.2009 22:17
Проблема с поиском решения	mavs	Microsoft Office Excel	4	20.04.2009 15:52
проблемы с поиском	vIRTx	Паскаль, Turbo Pascal, PascalABC.NET	11	12.06.2008 17:43
Проблема с поиском	Zeraim	Microsoft Office Access	2	04.06.2008 05:42

22.06.2009, 11:59	#2
фЁдОр Форумчанин Регистрация: 06.09.2007 Сообщений: 908	вам одновременно нужно осуществлять поиск по трем категориям или это долно быть на выбор пользователя? почему бы не использовать Like или Locate??

22.06.2009, 14:14	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	бр-р-р-р-р... сразу могу сказать - мне, например, очень не нравится имя поля с пробелом! да и текстовые значения должны быть "закавыченны"...

22.06.2009, 16:14	#5
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	Нет. не в этом здесь дело... Сообщение всеравно появляется хоть с квадратными скобками хоть без них

22.06.2009, 22:05	#9
Evgenii Форумчанин Регистрация: 04.01.2008 Сообщений: 201	Ну есть у когонибудь хоть какое предположение что же здесь не так?!?!?

22.06.2009, 22:53	#10
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	да как же можно сказать, если Вы в исходники не положили файл Unit6, который лежит у Вас: C:\Documents and Settings\Master&TT\Мои документы\Borland Studio Projects\Unit6.pas я Вам больше скажу. я ни в одной таблице (из трёх) не нашёл поля, по которому Вы пытаетесь искать (Номера дисков) Правда, есть поле "Номера сданных дисков"... может Вы имя поля перепутали?!