ارجو المساعدة يا اخوانى فىتفريغ قاعدة بيانات

أخي الكريم

السلام عليكم ورحمة الله وبركاته

من أجل حذف البيانات يجب أن تبدأ بحذف البيانات التي في الجداول الفرعية ثم حذف البيانات في الجداول الرئيسية

(حذف من جداول الأبناء ثم من جداول الآباء)

بمعنى اذا كان لديك جدولين الاول تخزن فيه طلبات الشراء والثاني الاصناف الخاصة بكل طلب شراء

فيجب حذف الاصناف ثم حذف طلبات الشراء

بمعنى آخر

الجدولين الذين بكون بينهما العلاقة من نوع رأس الى أطراف(one to many)

يجب حذف بيانات جدول الطرف ثم حذف بيانات جدول الرأس

ولا داعي لحذف العلاقات بين الجداول

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

نشكر الاستاذ l-omari على الشرح والطريقة التي ذكرها صحيحه ونضيف عليها

1. لكي تقوم بحذف جميع البيانات من القاعدة يلزمك استعلام حذف تقوم بعمله لمرة واحدة فقط

والطريقة هي

1. التأكد من التكامل المرجعي وتتالي التحديث وتتالي الحذف عند وجود علاقات بين الجداول بحيث لو حذفت المفتاح الرئيسي لأي سجل سيحذف معه مباشرة السجلات المرتبطه به في باقي الجداول .

2. انشاء استعلام حذف لبيانات الجداول الرئيسية

3. نسخ عبارة الـ SQL الخاصة بإستعلام الحذف ووضعها في كود تحت زر امر حذف كافة البيانات

4. او استخدم هذا الكود مباشرة تحت زر امر اسمه cmdDelete فهو جاهز للاستخدام من تصميم العبقري استاذنا احمد الحربي

Private Sub cmdDelete_Click()
Dim db As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim sq As String
Dim intTable As Integer
Dim lngRecordDelete As Long
Dim lngAllRecordDeleteOnMyDB As Long
Set db = CurrentProject.Connection
Set cat.ActiveConnection = db
   For Each tbl In cat.Tables
       sq = " delete " & tbl.Name
       sq = sq & " from " & tbl.Name
   Select Case tbl.Name
        Case Is = "MSysAccessObjects", "MSysACEs", "MSysObjects", "MSysQueries", "MSysRelationships"
        Case Else
   db.Execute sq, lngRecordDelete
   lngAllRecordDeleteOnMyDB = lngAllRecordDeleteOnMyDB + lngRecordDelete
       End Select
   Next
   MsgBox " مجموع السجلات التي تم حذفها " & vbCrLf & lngAllRecordDeleteOnMyDB
End Sub

اختكم

زهره

السلام عليكم ورحمة الله وبركاته ،،، وبعد

بداية اود ان اشكر الأخ l-omari والأخت zahrah على ردهم وعلى افادتهم واود ان اقول للأخت زهرة بصراحة انا ماعرفتش اعمل اللى انتى قولتيه او مافهمتش ايه ده بالظبط انا يا اخوانى مستخدم فقط للأكسس وليس لى علم بطرق البرمجة فأرجو اعادة الشرح بطريقة مبسطة لكى استطيع فهمها ولكم جزيل الشكر وجزاكم الله خيرا