|
#1
|
|||
|
|||
SQL-запрос
Ребята, нужно создать запрос на СКЛ, чтобы при вводе в Едит и по клику кнопки в программе выводил автомобиль с ценой меньше заданной. что-то не могу понять как это правильно сделать с типами данных.. вот что набрасал уже кстати колонка COST_OF_Day имеет денежный тип.. в общем поглядите..
Код:
procedure TForm2.Button1Click(Sender: TObject); Var money:real; begin with Query1 do begin close; sql.Clear; sql.Add('select * from auto where cost_of_day<=:cost_of_day'); Prepare; Params[0].asstring:=Edit1.text; ParamByName('cost_of_day').asString:=edit1.text; open; Edit1.Clear; end; Последний раз редактировалось Admin, 24.05.2011 в 14:28. |