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

.png   Sans titre.png (الحجم : 7.11 KB / التحميلات : 17)
اين المشكل جزاكم الله عنا كل خير
الرد
#2
السلام عليكم

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


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


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف