تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو الرد وده اول سؤال ليا ياريت حد يفيدنى
#1
ده كود فاتورة مبيعات بس مش عارف اوصل انى اخليه يعمل ابديت لكل الكميات بيعمل  للمتحدد عليه بس فى الداتا جريد فيو 
ارجو الرد وشكرا  قاعدة البيانات اكسس
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
الرد
تم الشكر بواسطة:
#2
السلام عليكم

ماذا تقصد "لكل الكميات" ؟

إذا كنت تقصد إنقاص كل الكميات التي في الداتاجريد فهذا هو الكود
كود :
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
الرد
تم الشكر بواسطة: نبيل كونكت
#3
(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

الف الف شكر يا بشمهندس
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن الاستعلام والبحث احمد خطاب 5 65 منذ 13 دقيقة مضت
آخر رد: mero5000
  سؤال :- عن التيكست بوكس احمد خطاب 1 22 منذ 1 ساعه مضت
آخر رد: عبد العزيز البسكري
  سؤال فى الحفظ من الداتا جريد salah mansour 2 32 منذ 5 ساعة مضت
آخر رد: salah mansour
  [سؤال] سؤال في vb.net و mysql في شبكة محلية بدون انترنت اللورد محمود 0 16 منذ 9 ساعة مضت
آخر رد: اللورد محمود
  سؤال :- فى كيغية ادراج بيانات فى الداتا جريد فيو احمد خطاب 0 32 13-10-18, 08:54 PM
آخر رد: احمد خطاب
  سؤال عن التكست بوكس احمد خطاب 3 60 12-10-18, 08:34 PM
آخر رد: mustafa husaieen
  سؤال عن التكست بوكس احمد خطاب 1 46 12-10-18, 08:17 PM
آخر رد: asemshahen5
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 75 11-10-18, 03:30 PM
آخر رد: Simo1991
  سؤال عن تفعيل البرنامج عن طريق الفلاش ميمورى asemshahen5 7 199 07-10-18, 09:48 PM
آخر رد: %Eman%
  [درس فيديو] أحب أن أسال أعضاء المنتدى سؤال بخصوص موضوع ( الشرح من خلال عمل فيديو صوت وصورة ) عبدالله الدوسري 21 568 03-10-18, 07:18 PM
آخر رد: larbihamri

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم