مشكلة في افراغ قاعدة البيانات
#1
السلام عليكم ورحمة الله تعالى وبركاته
قاعدة البيانات المستعملة absolute database
الكود المستعمل هو كالتالي
كود :
procedure TForm1.Button4Click(Sender: TObject);
begin
  with DM do
  begin
  Table1.Close;
  Table1.emptytable;
  Table1.Open;
  Table1.Refresh;
  end;
end;
الغريبة ان هذا الكود يعمل بشكل جيد
وفي بعض الأحيان يعطي رسالة خطأ
[attachment=4185]
اين المشكل جزاكم الله عنا كل خير
الرد
#2
السلام عليكم

كود :
for i := mytable.RecordCount - 1 downto 0 do
begin
    mytable.Delete;
end;
mytable.Refresh;
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم