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

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

عندي كود حذف عملية بيع ( الحذف من جدولين ) جدول مبيعات و جدول تفاصيل المبيعات 
بيظهر الرساله هذه عند تشغيل الكود 
Specify the table containing the records you want to delete.
كود :
       cmd = New OleDbCommand("delete TBL_ORDERS.id_order,TBL_ORDERS.date_order,TBL_ORDERS.saler_order,TBL_ORDERS.des_order,TBL_ORDERS.id_customer, TBL_ORDER_DETAILS.ID_Product,TBL_ORDER_DETAILS.ID_Order,TBL_ORDER_DETAILS.qty_order,TBL_ORDER_DETAILS.price_order,TBL_ORDER_DETAILS.amount_order from TBL_ORDERS , TBL_ORDER_DETAILS where TBL_ORDERS.id_order=TBL_ORDER_DETAILS.ID_Order and TBL_ORDERS.id_order = " & dgv_manage_sales.CurrentRow.Cells(0).Value, con)
       con.Open()
       cmd.ExecuteNonQuery()
       MsgBox("تم حذف المستخدم بنجاح")
       fill_dgv_manage_sales()
       con.Close()
وايضا جربت هذا 
كود :
       cmd = New OleDbCommand("delete * from TBL_ORDERS , TBL_ORDER_DETAILS where TBL_ORDERS.id_order=TBL_ORDER_DETAILS.ID_Order and TBL_ORDERS.id_order = " & dgv_manage_sales.CurrentRow.Cells(0).Value, con)
       con.Open()
       cmd.ExecuteNonQuery()
       MsgBox("تم حذف المستخدم بنجاح")
       fill_dgv_manage_sales()
       con.Close()
الافادة ؟؟
لماذا لاتقوم بعملية الحذف على مرتين ؟

احذف من جدول التفاصيل اولا  ثم احذف من جدول الفواتير


شيء مثل : 

لم اجربه كتبته في النوت باد 
كود :
dim ID_Order as Integer = dgv_manage_sales.CurrentRow.Cells(0).Value

    dim  cmd1 = New OleDbCommand("delete * from  TBL_ORDER_DETAILS where TBL_ORDER_DETAILS.ID_Order  = " & ID_Order  , con)


 dim     cmd2 = New OleDbCommand("delete * from TBL_ORDERS  where TBL_ORDERS.id_order = " & ID_Order , con)


      con.Open()
      cmd1.ExecuteNonQuery()
cmd2.ExecuteNonQuery()
      con.Close()




      MsgBox("تم حذف المستخدم بنجاح")
      fill_dgv_manage_sales()
مشكور استاذنا الفاضل على مساعدتك الغالية