رابطه کلید اصلی و خارجی

[barbadrafteh]

با سلام
من دو تا جدول دارم به نام منبع و کتاب که کد منبع درجدول اول کلید اصلی و در جدول دوم کلید خارجی است. می خوام با گرفتن کد منبع از ورودی رکورد متناظر با اون کد رو در جدول منبع حذف کنم. می دونم که اون رکورد اول باید از جدولی که کلید خارجی داره حذف بشه من این کد رو نوشتم ولی خطا می گیره می شه بگید مشکل کجاست؟

Private Sub Command2_Click()
DataGrid1.Visible = False
Dim cnn As New adodb.Connection
Dim rst1 As New adodb.Recordset
Dim rst2 As New adodb.Recordset
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library;Data Source=new"
'"+strSQL = "delete from book Where source_code ='" + Text1.Text
'"+strSQL1 = "delete from source Where source_code ='" + Text1.Text
strSQL2 = "select * from source"
rst1.CursorType = adOpenStatic
rst1.CursorLocation = adUseClient
rst1.LockType = adLockOptimistic
rst1.ActiveConnection = cnn
rst2.CursorType = adOpenststic
rst2.CursorLocation = adUseClient
rst2.LockType = adLockOptimistic
rst2.ActiveConnection = cnn
rst1.Open strSQL1, , , , adCmdText
Set DataGrid1.DataSource = rst1
rst2.Open strSQL2, , , , adCmdText
Set DataGrid1.DataSource = rst2
DataGrid1.Visible = True
("منبع مورد نظر با موفقیت حذف شد.")Msgbox

[/align]

[sohaib]

سلام
ببخشيد من يك مقدار رك هستم. كد شما مثل اين ميمونه كه از كامپيوتر كار چرتكه رو بكشيد.
در پايگاه داده چه اكسس باشه چه SQL Server و همچنين تقريبا تمامي پايگاه داده ها
شيء داريم به نام Relation. شما بايد يك رابطه در پايگاه داده خودتون تعريف كنيد و بعد ركورد مورد نظر را از اون رابطه حدف كنيد. اين فقط يك روش است.

مشكلي داشتيد به من E-mail بزنيد.