rasool1110
یک شنبه 06 خرداد 1386, 17:40 عصر
من یک کد برای حذف اطلاعات یک رکورد به صورت زیر نوشته ام اما در اجرا خطای error creating cursor handle رخ می دهد کد نوشتهشده هم به صورت یزر است . اگر ممکن است به من کمک کنید .
Cursor:=crHourGlass;
q_patientdelete.close;
q_patientdelete.SQL.Clear;
q_patientdelete.SQL.text:='delete from patienttable where p_id=:y';
q_patientdelete.Params.ParamByName('y').Value:=edi t1.Text;
q_patientdelete.open;
ShowMessage('ÇØáÇÚÇÊ �ÑæäÏå ÍÐÝ ÔÏ');
Cursor:=crDefault;
Cursor:=crHourGlass;
q_patientdelete.close;
q_patientdelete.SQL.Clear;
q_patientdelete.SQL.text:='delete from patienttable where p_id=:y';
q_patientdelete.Params.ParamByName('y').Value:=edi t1.Text;
q_patientdelete.open;
ShowMessage('ÇØáÇÚÇÊ �ÑæäÏå ÍÐÝ ÔÏ');
Cursor:=crDefault;