delphi4arab منتديات دلفي للعرب

كود :
q1.Close;
        q1.SQL.Clear;
        q1.SQL.Text:='select* from sader where corp = :destination';
        q1.Parameters.ParseSQL(q1.SQL.Text, True);
        q1.Parameters.ParamByName('destination').value:=dest.Text;
        q1.Open;

عندما لا توجد بيانات في البحث يصير كراش للبرنامج و تظهر رسالة تفيد أنه EOF أو BOF

أولا: ألق السلام أخي الكريم
السلام عليكم

إقتباس :عندما لا توجد بيانات في البحث يصير كراش

إذن يجب التحقق من وجود البيانات قبل الاستعلام، بشيء مثل هذا:

كود :
if q1.IsEmpty then Exit;

بالتوفيق.

لا أعتقد أن الكود الذي وضعته هو سبب المشكل، و إنما في الكود الموالي

إقتباس :.....
Q1.open;
while not q1.eof do
begin
.....

End;

KANONI

kachwahed

محمد س