السلام عليكم
لا ادرى ان كان فى خطأ فى الكود التالى ارجو التوضيح حيث ان رسالة خطأ مفادها ان البراميتر غير موجود
with ADOQuery1 do
case RadioGroup1.ItemIndex of
0:begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM ADOTable1 WHERE date between :d1 and :d2');
Prepared;
Parameters.ParamByName('d1').Value := DateTimePicker1.Date;
Parameters.ParamByName('d2').Value := DateTimePicker2.Date;
Open;
end;
1:begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM ADOTable1 WHERE doc_sub = :P1');
Prepared;
Parameters.ParamByName('P1').Value := DBLookupComboBox1.Text;
Open;
end;
end;// end case