تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 1 52 17-01-19, 09:31 PM
آخر رد: حريف برمجة
  سؤال في تغيير قيمة الخلية sofiane-phy 3 88 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 181 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 201 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 329 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  سؤال عن سبب ظهور خطا غير متوقع alipro 3 107 08-01-19, 04:28 AM
آخر رد: محمد كريّم
  سؤال عن ربط الاكسل مع vb philo 3 120 07-01-19, 02:57 PM
آخر رد: elgokr
Big Grin سؤال حول فحص اذا كان برنامج قيد التشغيل او لا ahmadpal 4 115 07-01-19, 02:50 PM
آخر رد: elgokr
  سؤال فى الداتا جريد فيو احمد خطاب 5 178 03-01-19, 08:59 PM
آخر رد: احمد خطاب
  سؤال حول امر الطباعة الفورية Osama Bayoumy 5 467 01-01-19, 01:02 AM
آخر رد: اسامه الهرماوي

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


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