Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизДоброго времени суток, нуждаюсь в совете, плз Найти похожие ветки
← →
Deniz (2001-12-03 15:50) [1]
procedure TForm1.Edit1Change(Sender: TObject);
var i : integer;
begin
if Edit1.Text<>"" then begin
TmpQuery.SQL.Clear;
TmpQuery.SQL.Add("select num from table1
where cast(num as varchar(20)) like :aNum");
TmpQuery.Prepare;
TmpQuery.Params[0].asString:=Edit1.Text;
TmpQuery.Open;
if TmpQuery.IsEmpty then begin
TmpQuery.Close;
ShowMessage("Not found.");
Exit;
end
else begin
i:=TmpQuery.Fields[0].asInteger;
TmpQuery.Close;
Table1.Locate("NUM", i, []);
end;
end;
end;
TmpQuery - временная Query
Удачи.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c