جستجو با استفاده از پارامتر

[rambod51]

سلام به دوستان عزیز
من میخوام یه جستجوی با پارامتر توسط دستورات sql انجام بدم ولی هر کاری کردم نشد این هم دستور نوشته شده(روی دکمه جستجو کلید کنم اجرا بشه)
procedure TForm1.Button1Click(Sender: TObject);
var
n:string;
begin
Query1.Params.CreateParam(ftString, 'n', ptInput);
Query1.ParamByName('n').Value := Edit1.Text;
Query1.SQL.add('select code_kol from kala where code_kol=:n');
Query1.Close;
query1.open;
end;
این دستورات فقط یکبار اجرا شده و بار دوم پیغام خطا صادر میکند لطفا یکی اونو کامل کنه خیلی نیازه

[hr110]

استفاده از کلمات ملتمسانه در عنوان سوال اکیداً ممنوع است، بنابراین من عنوان سوالت رو اصلاح کردم

جواب سوالت فکر کنم این باشد:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Query1.Active then Query1.Close;
Query1.Params.CreateParam(ftString, 'n', ptInput);
Query1.ParamByName('n').Value := Edit1.Text;
Query1.SQL.add('select code_kol from kala where code_kol=:n');
Query1.Open;
end;

تعریف N هم بی مورد بوده است!

[rambod51]

تکرار نمی شه.ممنون. درست شد. :wink: