|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передача в Params из TEdit
Доброго времени суток.
Подскажите пожалуйста можно ли сделать параметризированный запрос, значение которого изменялось бы компонентом TEdit. Вот моя зарисовка которая не работает. Свойство SQL: Код:
Select * from Client where Fam = :AAA Процедура присвоения значения параметру :AAA Код:
procedure TForm1.Button1Click(Sender: TObject); var a:string; begin Query1.Close; Query1.Prepare; a:='Edit1.Text'; Query1.Params[0].AsString := 'a'; Query1.Open; end; В чем ошибка? И как правильно нужно сделать? Помогите пжлст Последний раз редактировалось Bit, 30.04.2011 в 21:54. |
#2
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var a:string; begin Query1.Close; Query1.Prepare; a:=Edit1.Text; Query1.Params[0].AsString := a; Query1.Open; end; |
#3
|
|||
|
|||
Большое спасибо)))
Последний раз редактировалось Bit, 30.04.2011 в 21:58. |