اريد حذف جميع سجلات الجدول بضغطة زر واحدة في الدلفي

[hamza101110]

السلام عليكم
عندي جدول قاعدة بيانات اكسس مربوطة بالدلفي 7

في الواجهة . اريد وضع زر يقوم بحذف جميع البيانات في الجدول اي تفريغه . اريد الكود ان توفر
السءال التاني هو انو لماذا كود الاضافة post في الدلفي 7. لا يعمل مع قاعدة بيانات اكسس . ما هو الكود البديل
و شكررااااا

[S.FATEH]

السلام عليكم
يمكنك استخدام الـ SQL

كود PHP:

procedure TForm1.Button1Click(Sender: TObject);
var
  Qry: TADOQuery;
begin
  Qry := TADOQuery.Create(nil);
  try
    Qry.Connection := AdoConnection1;
    Qry.SQL.Add('delete from table1');
    Qry.ExecSQL;
  finally
    Qry.Free;
  end;
end; 


بالنسبة لسآلك الثاني ما هي مكونات الاتصال

[hamza101110]

اخي انا اعمل بقاعدة بيانات اكسس (adotable) مربوطة بالدلفي .
ليست sql.

[S.FATEH]

السلام عليكم
؟؟؟ !!!
كل قواعد البيانات تستخدم الـ SQL كلغة تخاطب بينها و بين Client العميل و لا توجد قاعدة بيانات تسمى SQL بالنسبة لقواعد بيانات Microsoft هناك MS Sql Server و هناك Access في حالتك انت تستخدم Access سواء اعلمت ذلك ام لا فعند ربط Ado Table مع قاعدة البيانات يتم توليد جملة SQL من مكون الاتصال ADOConnection انت تريد ان تحذف كل السجلات لذلك انسب طريقة هي عن طريق sql
قم ببحث بسيط لتفرق بين محرك قاعدة البينات و وبين SQL
https://support.office.com/ar-sa/art...4-e8dc3e460671
بالتوفيق

[hamza101110]

ولكن لم تشرحلي كيف اعمل بالكود
اكيد اضعه في زر
ولكن هل اضيف عنصر جديد للفورم قبل وضع الكود

[S.FATEH]

السلام عليكم
يجب ان تطلع على اساسيات البرمجة بالدلفي/ اساسيات قواعد البيانات قبل محاولة برمجة شيئ ما
يوجد العديد من الدروس على youtube و باللغة العربية
فقط ابحث

[hamza101110]

اخي شكرااا كثيراااا

[fares houdji]

كود PHP:

while not Table1.Eof do
begin
Table1.First();
Table1.Delete();
end; 


[appakar]

باستخدام الكود التالي
while not <name_table>.Eof do
begin
<name_table>.First();
<name_table>.Delete();
end;

[hamzawookr]

شكر على الموضوع