[borockov]

Всем привет друзья, такой вопрос. Как организовать поиск по Бд access с типом поля "Memo"?

Код:

1 2 3 4 5 6 7 8

procedure TForm1.BitBtn2Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select * From sinema where' +Edit1.Text); ADOQuery1.Open; DataSource1.DataSet:=ADOQuery1; end;

Пробовал вот так но видимо данный метод сработает лишь в текстовом поле.

[Snake22]

необязательно перезапрашивать каждый раз при смене поиска =)

есть свойство Filter

ADOQuery1.Filter:='name LIKE '+QuotedStr('%'+Trim(Memo1.Text)+'%');

насчёт Мемо? какая конкретно проблема? мой пример,данные беруться из Memo (точно также как из Edit'a )

[borockov]

В вопросе с Memo имеется ввиду что тип данных поля "Memo" . Стоит база на access, в которой поле которому мне надо сделать поиск имеет тип "Мемо".

[borockov]

Код:

1 2	If not DBGrid1.DataSource.DataSet.Locate('Информация о прототипе', Edit1.Text, []) then ShowMessage('Что то не нахожу');

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

[borockov]

Немного порывшись в сети нашел инфу что в поле типа "Memo" не работает Locate.

Код:

1 2	ADOquery1.SQL.Text:=('SELECT  * from Патент where Информация о прототипе like "%"edit1.text"%"'); ADOquery1.Open;

Попробовал такой вид запроса, но вылетает ошибка "Ошибка синтаксиса (пропущен оператор) в выражений запроса like "%"edit1.text"%"' Понимаю что как то не так отправляю запрос, но в чем конкретно причина не могу понять.

[borockov]

Вопрос с Поиском решен

Код:

1	ADOquery1.SQL.Text:=('SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"');

Таким образом, но есть ещё 1 вопрос после того как выполняется запрос БД фильтруется и остается только запись с "Искомым", как сделать так что бы БД не фильтровалась, а просто выделялась запись с "Искомым"?

[Snake22]

ну так как Locate не работает с мемо то можно поизвращаться,например, добавить второй adoquery и в нём делать запрос where like..., и посмотреть, если данный запрос возвращает значение,то взять первый id из отфильтрованного списка, и потом через locate подставить этот id в первый dataSet
DBGrid1.DataSource.DataSet.Locate('id', наш_полученный_ид, [])

[borockov]

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

ну так как Locate не работает с мемо то можно поизвращаться,например, добавить второй adoquery и в нём делать запрос where like..., и посмотреть, если данный запрос возвращает значение,то взять первый id из отфильтрованного списка, и потом через locate подставить этот id в первый dataSet
DBGrid1.DataSource.DataSet.Locate('id', наш_полученный_ид, [])

Спасибо! Вопрос с поиском решил таким образом:

Код:

1	ADOquery1.SQL.Text:=('SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"');

Но проблема в том что после того как выполняется запрос, БД фильтруется и остается только запись с "Искомым", как сделать так что бы БД не фильтровалась, а просто выделялась запись с "Искомым"?

[Snake22]

Но проблема в том что после того как выполняется запрос, БД фильтруется и остается только запись с "Искомым"

это потому что у тебя всё происходит в одном адоквери,

я же написал как сделай.
1) Добавь на форму второй AdoQuery2
2) Дальше твой код будет примерно таким,

Код:

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

var tmp_id:Integer; ADOquery2.SQL.Text:='SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"'; Adoquery2.Open; Adoquery2.RecordSet.MoveFirst; if (not Adoquery2.BOF)or(not Adoquery2.EOF) then    begin    tmp_id:=Integer(AdoQuery2,Recordset.Fields[0].Value); //Здесь подразумевается что у тебя в первой колонке таблицы Патент стоит уникальный код.    DBGrid1.DataSource.DataSet.Locate('ИД', tmp_id, []);    end else ShowMessage('Что то не нахожу'); Adoquery2.Close;

зы кто вообще учил русские таблицы и идентификаторы задавать)

[borockov]

Аааа блин, спасибо! Не догнал с первого раза!=))) щас посмотрю

[borockov]

Все компилируется и работает нормально, но проблема таки осталась, БД все равно фильтруется

[borockov]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm2.Button2Click(Sender: TObject); var tmp_id:Integer; begin ADOquery1.SQL.Text:=('SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"'); ADOquery1.Open; ADOquery2.SQL.Text:='SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"'; Adoquery2.Open; Adoquery2.RecordSet.MoveFirst; if (not Adoquery2.BOF)or(not Adoquery2.EOF) then    begin    tmp_id:=Integer(AdoQuery2.Recordset.Fields[0].Value); //Здесь подразумевается что у тебя в первой колонке таблицы Патент стоит уникальный код.    DBGrid1.DataSource.DataSet.Locate('id', tmp_id, []);    end else ShowMessage('Что то не нахожу'); Adoquery2.Close;   end;

[Snake22]

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

но проблема таки осталась, БД все равно фильтруется

если твой DBgrid подключен к другому ADoQuery и DataSource то такого быть не может. так как запросы друг на друга не влияют.
проверяй внимательно что и куда у тебя присоеденино,и проверь,куда условие фильтрации прописал,может в первый адоквери

Добавдлено:
а нафига ты эти строчки делаешь? они не нужны

Код:

1 2	ADOquery1.SQL.Text:=('SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"'); ADOquery1.Open;

[Snake22]

<дубль сообщения>

[borockov]

Огромное тебе спасибо!