Запрос на выборку похожих записей.

← →
Леха (2005-07-15 10:07) [0]

Не получается правильно написать код на выборку похожих записей, хоть убей, проблема с кавычками, помогите пожалуйста.
Использую АДО.
Вот код, не знаю я как еще кавычки добавить перед и после %

procedure TReg.likeEditChange(Sender: TObject);
var
Naimen: string;
begin
if LikeEdit.Text<>"" then
begin
Query1.SQL.Text:="select * from реестр where Name like=:Namimen";
Naimen:="%"+ LikeEdit.Text + "%";
Query1.Parameters[0].Value:=Naimen;
Query1.Open;
end;
if LikeEdit.Text="" then
Query1.SQL.Text:="select * from реестр";
Query1.Open;

end;

← →
Johnmen © (2005-07-15 10:11) [1]

Попробуй заглянуть в LocalSQL.hlp по поводу применения LIKE.

← →
Леха (2005-07-15 10:12) [2]

Попробую найти, проблема правда, я английский знаю на уровне букв :). Ну не учил я английский в школе...

← →
Леха (2005-07-15 10:20) [3]

Naimen:=""%"+ LikeEdit.Text + "%"";

Вот попробовал и так, но нет ругается на неверный синтаксис...

← →
Anatoly Podgoretsky © (2005-07-15 10:22) [4]

Леха (15.07.05 10:12) [2]
А чего же полез в программирование, есть множество профессий где английский не требуется.

← →
Леха (2005-07-15 10:28) [5]

Все что связано с ПК мне нравиться, люблю заниматься ПРАКТИЧЕСКИ ВСЕМ, поэтому знаю многое но по не много.
Ладно, спасибо за помощь, буду подбирать методом научного тыка...

← →
ЮЮ © (2005-07-15 10:46) [6]

Query1.Parameters[0].Value:= "%"+ LikeEdit.Text + "%";

а Naimen здесь просто лишний

← →
Леха (2005-07-15 10:56) [7]

Попробовал и так, но все равно ошибка

Код немного поправил

procedure TReg.SpeedButton1Click(Sender: TObject);
var
Naimen: string;
begin
if LikeEdit.Text<>"" then
begin
Query1.Close;
Query1.SQL.Text:="select * from реестр where Name like=:Namimen";
//Вот изменения
Query1.Parameters[0].Value:="%"+ LikeEdit.Text + "%";
Query1.open;
end;
if LikeEdit.Text="" then
Query1.SQL.Text:="select * from реестр";
Query1.Open;
end;

← →
ЮЮ © (2005-07-15 11:00) [8]

select * from реестр where Name like :Namimen
откуда там "=" взялся

← →
msguns © (2005-07-15 11:01) [9]

Если надо найти текст, фрагмент которого задается как ["Маша], а [Маша] как бы в эдите, то

Query1.Parameters[0].Value:="%""+ LikeEdit.Text + "%";

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

← →
Плохиш © (2005-07-15 11:01) [10]

Query1.SQL.Text:="select * from реестр where Name like=" + AnsiQuotedStr("%"+ LikeEdit.Text + "%");

← →
Плохиш © (2005-07-15 11:02) [11]

> ЮЮ © (15.07.05 11:00) [8]

О, точно = заменить на пробел :-)

← →
msguns © (2005-07-15 11:02) [12]

>ЮЮ © (15.07.05 11:00) [8]
>откуда там "=" взялся

Даже не обратил внимания ;))

Пост [9] прошу игнорировать,- не врубился в то, что само строковое выражение не в кавычках ;)

← →
Леха (2005-07-15 11:07) [14]

Какой я баран. Я извеняюсь, как я равно не заметил. Простите за потраченое время на меня.
ВСЕМ СПАСИБО, особенно MSGUNS

>Пост [9] прошу игнорировать ...

Тем не менее, все лавры тебе достались :)

← →
Леха (2005-07-15 11:14) [16]

Извеняюсь, ЮЮ. Я Вам тоже благодарен.

Запрос на выборку похожих записей. Найти похожие ветки