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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحذف من جدولين (/showthread.php?tid=36429)

الحذف من جدولين - khaled Mohammed - 16-09-20

السلام عليكم ورحمة الله بركاته 

عندي كود حذف عملية بيع ( الحذف من جدولين ) جدول مبيعات و جدول تفاصيل المبيعات 
بيظهر الرساله هذه عند تشغيل الكود 
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()


RE: سؤال ؟ - khaled Mohammed - 16-09-20

الافادة ؟؟

RE: سؤال ؟ - Anas Mahmoud - 16-09-20

لماذا لاتقوم بعملية الحذف على مرتين ؟

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


شيء مثل : 

لم اجربه كتبته في النوت باد 
كود :
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()


RE: سؤال ؟ - khaled Mohammed - 16-09-20

مشكور استاذنا الفاضل على مساعدتك الغالية