منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة سهلة للحذف من جدولين في قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : طريقة سهلة للحذف من جدولين في قاعدة البيانات (/showthread.php?tid=6079)



طريقة سهلة للحذف من جدولين في قاعدة البيانات - RaggiTech - 17-10-12

كاتب الموضوع : جهاد العريقي

كود للحذف من جدولين مرتبطين مع بعضهما عن طريق الحقل 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]