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

الصفحات : 1 2 3

مشكووور ، جميل جدا هذا بالضبط الذي كنت أقصده

كود :
النسبة اثناء التجريب في حالة اردت تفريغ جدول باتسخدام IBExpert يوجد خاصية Empty Table تريحك من العناء ...

[COLOR="black"][COLOR="black"]هذا لا ينفع ا صديقي في حالة الحذف الفزيائي للبيانات و إعادة الحجم الحقيقي للملف و هو فارغ.[/COLOR][/COLOR]

السلام عليكم في تلك الحالة
http://delphi4arab.net/forum/showpost.ph...ostcount=7

S.FATEH كتب :FireBird لا يدعم انشاء قاعدة بيانات من خلال Create Database احد الحلول ان لم يكن افضلها ان تضمن قاعدة بيانات فارغة كـ Resource الى برنامجك

يمكن ذلك بطرق منها:
- تحضير أوامر SQL بملف نصي واستدعاء iSQL

كود :
http://www.firebirdfaq.org/faq67/

- استخدام مكونات الاتصال المتاحة مثلا FireDAC

كود :
http://docwiki.embarcadero.com/RADStudio/XE7/en/Executing_SQL_Scripts_(FireDAC)

أو TIBConnection لمحبي FreePascal/Lazarus

كود :
http://wiki.freepascal.org/Firebird_embedded

- حتى باستخدام ADO يمكن ذلك لكن ساتركك تبحث عنها بنفسك Big Grin

لمسح جميع محتويات الجدول

كود :
while Not(ADODataSet1.Eof) do ADODataSet1.Delete;

كود :
While Not ADODataSet1.IsEmpty do ADODataSet1.Delete

الصفحات : 1 2 3

nabilkeb

S.FATEH

محمد عبد العزيز

omiman