Поиск в БД по слову из Memo

[Sony_boy]

Здравствуйте. Мне нужно: например в поле memo введено слово "idTom". По нажатию на кнопку, нужно что бы в edit1 и в edit2 записались данные из полей Наименование, Модель, из БД(Акцесс). Что находиться в БД:
Наименование:Ауди
Модель: Кабриолет
Идентификатор:idTom
Вообще это реально сделать?
Как подключить акцесс к дельфи я нашёл, уже подключил.

Если бы всё это завязывалось только на БД, то я думаю надо использовать запрос. Но мне надо именно по слову из memo

[Ernest027]

Если через запрос, попробуй так:
1)если добавишь на форму dbedit1 и dbedit2, то можно просто их подключить к нужному полю твоей базы и будет выглядеть так:

begin
with ADOQuery do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from Названиетаблицы');
    SQL.Add('where [Идентификатор] = '+QuotedStr(memo1.text));
    Open;
end;
end;

2) если все же хочешь с edit1 и 2 то между end'ами добавь:

edit1.text:=adoquery.fieldbyname('Наименование').asstring;
edit2.text:=adoquery.fieldbyname('Модель').asstring;

[Sony_boy]

Спасибо! Буду пробовать! И еще вопрос-а если я подключу базу mysql, то код будет прежним?

[Ernest027]

а вот этого точно сказать не могу, не пробовал. Должно уж работать.

[Sony_boy]

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

Если через запрос, попробуй так:
1)если добавишь на форму dbedit1 и dbedit2, то можно просто их подключить к нужному полю твоей базы и будет выглядеть так:

begin
with ADOQuery do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from Названиетаблицы');
    SQL.Add('where [Идентификатор] = '+QuotedStr(memo1.text));
    Open;
end;
end;

2) если все же хочешь с edit1 и 2 то между end'ами добавь:

edit1.text:=adoquery.fieldbyname('Наименование').asstring;
edit2.text:=adoquery.fieldbyname('Модель').asstring;

Пишет ошибку "idTom" не имеет параметра. Не знаешь с чем это связано?

[FoCUS313]

Общий вид работы с параметром через Query

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select * from [таблица]');
Query.SQL.Add('where [поле] = :[параметр]');
Query.Prepare;
Query.ParamByName([параметр]).AsString := 'ТЕКСТ';
Query.Open;

[MixanMM]

Как то так попробуй:

procedure TForm3.Memo1Change(Sender: TObject);
begin

Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Text:='SELECT Наименование FROM Таблица WHERE Идентификатор LIKE ''%'+Memo1.Text+'%'' ';
Form1.ADOQuery1.ExecSQL;
Edit1.text:= Form1.ADOQuery1.Fields[0].AsString;

Form1.ADOQuery2.SQL.Clear;
Form1.ADOQuery2.SQL.Text:='SELECT  Модель FROM Таблица WHERE Идентификатор LIKE ''%'+Memo1.Text+'%'' ';
Form1.ADOQuery2.ExecSQL;
Edit2.text:= Form1.ADOQuery2.Fields[0].AsString;
end;

[xxbesoxx]

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

Как то так попробуй:

procedure TForm3.Memo1Change(Sender: TObject);
begin

Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Text:='SELECT Наименование FROM Таблица WHERE Идентификатор LIKE ''%'+Memo1.Text+'%'' ';
Form1.ADOQuery1.ExecSQL;
Edit1.text:= Form1.ADOQuery1.Fields[0].AsString;

Form1.ADOQuery2.SQL.Clear;
Form1.ADOQuery2.SQL.Text:='SELECT  Модель FROM Таблица WHERE Идентификатор LIKE ''%'+Memo1.Text+'%'' ';
Form1.ADOQuery2.ExecSQL;
Edit2.text:= Form1.ADOQuery2.Fields[0].AsString;
end;

если ADOQuery2.SQL.Text:='SELECT потом надо Open и не ExecSQL; Книга полистайте если не читайте

[MixanMM]

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

если ADOQuery2.SQL.Text:='SELECT потом надо Open и не ExecSQL; Книга полистайте если не читайте

Согласен согласен, просто копипастингом занялся и запарился,.
Так надо примерно:

Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.add('SELECT sum(cash) FROM dolg WHERE fio='''+q+'''');
Form1.ADOQuery1.open;
dolgi1:=Form1.ADOQuery1.Fields[0].AsFloat;