السلام عليكم اخواني عندي هذا الكود
var a:string;
begin
a:='select * from CATEGORY where CAT_NAME=" ' + combobox1.text + ' " ';
self.IBDataSet3.SelectSQL.Text:=a;
self.IBDataSet3.Open;
self.DBEdit3.Text:=self.IBDataSet3.FieldByName('CAT_ID').AsString;
end;
procedure TForm5.ComboBox1Change(Sender: TObject);
عندما انفذه تظهر رسالة الخطأالتالية الموجودة في المرفق