17-10-12, 03:37 PM
كاتب الموضوع : جهاد العريقي
بفرض اننا نمتلك جدول واحد في قاعدة البيانات واردنا حذف كل البيانات في هذا الجدول او في قاعدة البيانات نستخدم الكود الاتي
كود :
[COLOR=#000000][COLOR=#0000bb]
لتصفير قاعدة البيانات
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Command3_Click[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]Dim db [/color][color=#007700]As [/color][COLOR=#0000bb]Database
Set db [/COLOR][color=#007700]= [/color][color=#0000bb]OpenDatabase[/color][color=#007700]([/color][color=#dd0000]"MyDataBase.mdb"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]db[/color][color=#007700].[/color][color=#0000bb]Execute [/color][color=#007700]([/color][color=#dd0000]"DELETE * from MyTable"[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
واذا اردنا ان نحذف با قي البيانات من عذة جداول فيمكن تكرار العملية
كود :
[color=#000000][COLOR=#0000bb]db[/color][color=#007700].[/color][color=#0000bb]Execute [/color][color=#007700]([/color][color=#dd0000]"DELETE * from MyTable"[/color][COLOR=#007700])
[/COLOR][color=#0000bb][/color][/COLOR]
حيث نضع بدل MYTable اسم الجدول المراد ..
يمكن الاستغنا عن * وكتابة امر Sql كالاتي
كود :
[COLOR=#000000][COLOR=#0000bb]Delete From MyTable
[/COLOR][/COLOR]