05-01-24, 01:01 AM
السلام عليكم .
اخواني لدي هذا الكود لعملية حذف سجل من قاعدة البيانات ما أريده لو تكرمتهم هو كيف أضيف أمام هذا الكود شرط أن لا يكون هذا السجل الذي اريد حذفه متواجد او مرتبط بجدول آخر بقاعدة البيانات و بارك الله فيكم
اخواني لدي هذا الكود لعملية حذف سجل من قاعدة البيانات ما أريده لو تكرمتهم هو كيف أضيف أمام هذا الكود شرط أن لا يكون هذا السجل الذي اريد حذفه متواجد او مرتبط بجدول آخر بقاعدة البيانات و بارك الله فيكم
كود :
Dim Cmd As New OleDb.OleDbCommand
With Cmd
Cmd.Connection = Conne
Cmd.CommandType = CommandType.Text
Cmd.CommandText = "DELETE From Suppliers Where No_Suppliers = @No_Suppliers"
Cmd.Parameters.Clear()
Cmd.Parameters.AddWithValue("@No_Suppliers", OleDbType.Integer).Value = TextSuppliersNo.Text
End With
If Conne.State = ConnectionState.Open Then Conne.Close()
Conne.Open()
Cmd.ExecuteNonQuery()
If Conne.State = ConnectionState.Open Then Conne.Close()
Cmd = Nothing