منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طريقة سهلة للحذف من جدولين في قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : جهاد العريقي

كود للحذف من جدولين مرتبطين مع بعضهما عن طريق الحقل No



كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Command3_Click[/color][COLOR=#007700]()
[/COLOR][COLOR=#dd0000]"تعريف متغير من نوع  DataBase

Dim db As Database

Set db = OpenDatabase("[/COLOR][color=#0000bb]MyDataBase[/color][color=#007700].[/color][color=#0000bb]mdb[/color][COLOR=#dd0000]")

      db.Execute ("[/COLOR][color=#0000bb]DELETE from MyTable1 where no[/color][color=#007700]=[/color][COLOR=#dd0000]" & Text1.Text & "")
      db.Execute ("[/COLOR][color=#0000bb]DELETE from MyTable2 where no[/color][color=#007700]=[/color][COLOR=#dd0000]" & Text1.Text & "")
'الحقل  no هو حقل من نوع  مفتاح رئيسي في جدول  ومفتاح اجنبي في جدول اخر  
'بمعنى ان  الجدولين مرتبطين .. مع بعض  وهذا الحذف مشروط  

End Sub  
[/COLOR][/COLOR]