|
Просто не присваивается или ошибку какую-то выдает ?
К сожалению не работаю с базами DB, а вот с DBF я попробовал вот такой вариант
procedure TForm1.Button1Click(Sender: TObject);
var
PName: String;
begin
PName:=Trim(Edit1.Text);
with Form1 do
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select id from baza where name='''+PName+'''');
Open;
Edit2.Text:=Query1.FieldValues['ID'];
end;
end;
Все работает нормально.
|