+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ارجو الرد وده اول سؤال ليا ياريت حد يفيدنى (/showthread.php?tid=19584)
ارجو الرد وده اول سؤال ليا ياريت حد يفيدنى - نبيل كونكت - 09-03-17
ده كود فاتورة مبيعات بس مش عارف اوصل انى اخليه يعمل ابديت لكل الكميات بيعمل للمتحدد عليه بس فى الداتا جريد فيو
ارجو الرد وشكرا قاعدة البيانات اكسس
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
'باقى هنا تسميع الفاتوره فى قاعدة البيانات
Dim ad As Integer = Me.dgvprodac.CurrentRow.Cells(0).Value
Dim txt As Integer = Me.dgvprodac.CurrentRow.Cells(2).Value
''Dim cmd As New OleDbCommand("update taلاpro set qty=-
'Dim cmd As New OleDbCommand("update tab_pro set qty=-{0} where id={1}
Dim str As String = String.Format("UPDATE tab_pro set qty= qty- {0} where id={1}", txt, ad)
Dim cmd As New OleDbCommand(str, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("تمت العمليه بنجاح")
clear()
End Sub
RE: ارجو الرد وده اول سؤال ليا ياريت حد يفيدنى - مساعدة - 09-03-17
السلام عليكم
ماذا تقصد "لكل الكميات" ؟
إذا كنت تقصد إنقاص كل الكميات التي في الداتاجريد فهذا هو الكود
كود :
Private Sub btnsave_Click(sender As Object, e As EventArgs)
'باقى هنا تسميع الفاتوره فى قاعدة البيانات
Dim cmd As New OleDbCommand(String.Empty, con)
con.Open()
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty -{0} WHERE [id] = {1} ", txt, ad)
cmd.ExecuteNonQuery()
Next
con.Close()
MsgBox("تمت العمليه بنجاح")
clear()
End SubRE: ارجو الرد وده اول سؤال ليا ياريت حد يفيدنى - نبيل كونكت - 09-03-17
(09-03-17, 10:48 AM)مساعدة كتب : السلام عليكم
ماذا تقصد "لكل الكميات" ؟
إذا كنت تقصد إنقاص كل الكميات التي في الداتاجريد فهذا هو الكود
كود :
Private Sub btnsave_Click(sender As Object, e As EventArgs)
'باقى هنا تسميع الفاتوره فى قاعدة البيانات
Dim cmd As New OleDbCommand(String.Empty, con)
con.Open()
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty -{0} WHERE [id] = {1} ", txt, ad)
cmd.ExecuteNonQuery()
Next
con.Close()
MsgBox("تمت العمليه بنجاح")
clear()
End Sub
الف الف شكر يا بشمهندس