17-10-12, 03:39 PM
كاتب الموضوع : جهاد العريقي
كود للحذف من جدولين مرتبطين مع بعضهما عن طريق الحقل 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]