+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده لو سمحتوا فى تعديل كود اتصال INSERT (/showthread.php?tid=21034)
مساعده لو سمحتوا فى تعديل كود اتصال INSERT - نبيل كونكت - 12-07-17
المشكله انه دلواتى بيدرج من فاتورة مشتريات فاول شرط لو الرقم نفسه والسعر نفسه يعمل ابديت
والا دى بقى الى فيها مشكله عايزه يجيب اسم الصنف ويزود جمبع واحد
الكود الاول ده سليم وجربته الحمد لله
كود :
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} , [price] = {2} WHERE [id] = {1} and [price] = {2} ", txt, ad, txP)
If cmd.ExecuteNonQuery() Thenبس الى بعده بقى مش عارف الكود خالص
كود :
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txP As String = Val(r.Cells(1).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
Dim txC As Integer = Val(r.Cells(3).Value)
Dim STTR As String
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} , [price] = {2} WHERE [id] = {1} and [price] = {2} ", txt, ad, txP)
If cmd.ExecuteNonQuery() Then
STTR = ("insert into tab_pro (label,qty,price,id) values ({0},{1},{2},{3+1})", txP, txt, txC , ad )
cmd.ExecuteNonQuery()
End If
Next{3+1} دى بجتهد انه ياخد اسم الصنف ويزود جمبه واحد
ارجو المساعده وشكرا لمجهودكم
واسم الصنف ممكن يجى كده
كود :
If cmd.ExecuteNonQuery() Then
Dim txC As Integer = ("select label from [tab_pro] WHERE [id] = {1} ", txt)
STTR = ("insert into tab_pro (label,qty,price,id) values ({0},{1},{2},{3+1})", txP, txt, txC , ad )
'cmd.CommandText = String.Format("insert into tab_pro SET [qty] = qty +{0} , [price] = {2} WHERE [id] = {1} ", txt, ad)
cmd.ExecuteNonQuery()
End If