Я уже не знаю что делать

← →
Itap © (2003-02-14 16:24) [0]

Проблема: данные из TEdit добавить в SQL-запрос
Последний вариант моего решения который тоже не прошёл:
procedure TForm1.Edit18Change(Sender: TObject);
begin
DBGrid1.DataSource:=DataSource1;
Table1.Active:=False;
Table1.TableName:="MainBase.db";
DBGrid1.DataSource:=DataSource2;
Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add("select Num as Номер");
Query1.SQL.Add(", F as Фамилия");
Query1.SQL.Add(" From MainBase");
Query1.SQL.Add(" where F like ");
Query1.SQL.Add("STRPCopy(b, Edit18.Text);"+"");
Query1.SQL.Add(""%"");
Query1.Active:=True;
end;

Вопрос:Как быть?

Краткое описание: Из поля "F" базы данных "MainBase" (Paradox) необходимо показать фамилии начинающиеся с тех букв которые записываются в Edit18. Запрос должен выполняться при внесении в окно Edit18 какого либо символа.

← →
Соловьев © (2003-02-14 16:30) [1]

> Query1.SQL.Add("STRPCopy(b, Edit18.Text);"+"");
> Query1.SQL.Add(""%"");

Попробуй в событии Edit18.OnChange
... Query1.SQL.Add(Edit18.Text+"%"); ...

> Query1.SQL.Add("select Num as Номер");

Это не верно.

← →
Johnmen © (2003-02-14 16:34) [2]

procedure TForm1.Edit18Change(Sender: TObject);
begin
Query1.Close; Query1.SQL.Clear;
Query1.SQL.Add("select Num as Номер");
Query1.SQL.Add(", F as Фамилия");
Query1.SQL.Add(" From MainBase");
Query1.SQL.Add(" where F like ");
Query1.SQL.Add(""""+STRPCopy(b, Edit18.Text)+"%""");
Query1.Open;
end;

← →
Itap © (2003-02-14 16:34) [3]

>Query1.SQL.Add(Edit18.Text+"%");
Ведь в запросе символы идут под типом PChar а в Edit они как TString возникает проблема с типами

> Query1.SQL.Add("select Num as Номер");
>Это не верно.

В Paradox разрешается использование русских заголовков, вернее их переименование про запросах

← →
Stas © (2003-02-14 16:35) [4]

Попробуй использовать оператор lIke

← →
Itap © (2003-02-14 16:40) [5]

Johnmen - спасибо,попробую
Я думаю получиться. Только сейчас заметил что в моём исходном тексте после строки: Query1.SQL.Add("STRPCopy(b, Edit18.Text) стоит ";" которой там явно не должно быть.

← →
Itap © (2003-02-14 16:41) [6]

>Stas ©
>Попробуй использовать оператор lIke

На его основе какраз и основан запрос

← →
Соловьев © (2003-02-14 16:43) [7]

> procedure TForm1.Edit18Change(Sender: TObject);
> begin
> DBGrid1.DataSource:=DataSource1;
> Table1.Active:=False;
> Table1.TableName:="MainBase.db";
> DBGrid1.DataSource:=DataSource2;

Зачем это делать каждый раз при изменении Edit18.Text?

> Itap © (14.02.03 16:34)
> >Query1.SQL.Add(Edit18.Text+"%");
> Ведь в запросе символы идут под типом PChar а в Edit они
> как TString возникает проблема с типами

У меня все работатет, может, ты чего-то не пишешь?

← →
stas © (2003-02-14 16:44) [8]

to Itap
Прошу прощения запарился...

← →
Itap © (2003-02-14 16:51) [9]

>Соловьев ©
> DBGrid1.DataSource:=DataSource1;
> DBGrid1.DataSource:=DataSource2;
>Зачем это делать каждый раз при изменении Edit18.Text?
Просто в базе используется 2 DataSource поэтому приходиться делать такие переприсвоения

← →
Chubais © (2003-02-14 16:51) [10]

мда....

> Просто в базе используется 2 DataSource поэтому приходиться
> делать такие переприсвоения

Это понятно, но зачем в OnChange?????

>Соловьев
>Это понятно, но зачем в OnChange?????
Да, наверное правильно - перепишу

И лучше используй параметризированые запросы будет на порядок быстрее.

← →
НАХАЛ (2003-02-15 01:00) [14]

>Соловьев ©
А ведь ты был прав, прошёл вариант:
procedure TForm1.Edit18Change(Sender: TObject);
begin
Query1.Close; Query1.SQL.Clear;
Query1.SQL.Add("select Num as Номер");
Query1.SQL.Add(", F as Фамилия");
Query1.SQL.Add(" From MainBase");
Query1.SQL.Add(" where F ");
Query1.SQL.Add("Like """ + Edit18.Text + "%""");
Query1.Open;
end;

Я уже не знаю что делать Найти похожие ветки