تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب انشاء جملة update في مشروعي
#1
السلام عليكم ورحمة الله وبركاتة
في مشروعي2 داتا جريد فيو
في الاولي بعمل اتصال بالبيانات اللي في قاعدة البيانات
وفي زر ادراج الصنف اللي  انا محدد عليه في الداتا جريد فيو الاولي بينزل في الداتا جريد فيو التانية وكل دا مظبوط وتمام مفيش مشاكل
بس المشكلة عندي هي ازاي انقص الكمية اللي في الصفوف اللي في الداتا جريد فيو التانية من قاعدة البيانات
المشروع في المرفقات

الصورة للتوضيح

   

عايز انقص القيم اللي في الداتا جريد فيو 2 اللي تحت من قاعدة البيانات

نوع الاتصال local SQL


الملفات المرفقة
.rar   DGV_add.rar (الحجم : 96.94 ك ب / التحميلات : 39)
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

المرفق وجدت فيه جدول واحد
المفروض يكون عندك جدولين جدول الأصناف وجدول آخر مثل المبيعات الصورة غير واضحة من ناحية المفهوم عل هي فواتير ام ماذا

يا ليت تشرح الفكرة أكثر
الرد }}}
تم الشكر بواسطة:
#3
يا استاذي يا محترم

انا فقط اريد جملة ال update للجدول اللي في المشروع

المفروض اني اما ادوس بيع يعمل عملية تنقيص الكمية اللي في الداتا جريد فيو 2 من الجدول يعني جملة الابديت على الجدول اللي في المشروع

يعني ينقص من كل صنف الكمية اللي في الداتا جريد فيو بتاعتة

ينقص الكمية من خانة اسمها الكمية في داتا جريد فيو رقم 2
والداتا جريد فيو رقم 1 فيها البيانات اللي في قاعدة البيانات
يعني اما ادوس على الصنف مرتين من التادا جريد فيو رقم 1 او زر ادراج بيضاف في الداتا جريد فيو رقم 2
واما ادوس على زر بيع ينقص الكمية اللي في رقم 2 من قاعدة البيانات لكل صنف فيها
يعني هي جملة الابديت بس اللي عايزها
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#4
وجدت ان نوع الكمية (نص) وليس (رقم) تم التعديل

وجدتك اضفت DataSet فقمت باستغلالها في Form2 مع بعض التعديلات مثل التقر مرتين على السطر لإضافته

جرب واذكر النتيجة واسأل عن النقطة الغامضة بالنسبة لك


الملفات المرفقة
.rar   DGV_add.rar (الحجم : 31.33 ك ب / التحميلات : 50)
الرد }}}
تم الشكر بواسطة: Codack
#5
جار التجرية واشكرك على الاضافة

ملحوظة هذا مصغر من المشروع من المشروع الحقيقي الذي اعمل عليه و انا عامل حقول قاعدة البيانات اي شئ
وشكرا على المتاعة وجاري التجربة يا استاذي

إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#6
(10-10-16, 06:19 PM)ممدوح كتب : وجدت ان نوع الكمية (نص) وليس (رقم) تم التعديل

وجدتك اضفت DataSet فقمت باستغلالها في Form2 مع بعض التعديلات مثل التقر مرتين على السطر لإضافته

جرب واذكر النتيجة واسأل عن النقطة الغامضة بالنسبة لك

الف شكر يا اخي تعديل تم بنجاح وشغال تمام

بس في ملحوظة
انا مش لاقي الاكواد اللي حضرتك عاملها بتاعة select و update  عشان اعدل على الحقول اللي عندي في المشروع الحقيقي

وكمان انا شغال
  DataTable
مش
DataAdapter

فانا عايز اكواد مكتوبة عشان اعدل عليها


مثل هذه


كود :
 Dim cmd As New SqlCeCommand("update  Stock set xmach='" & DataGridView1.Rows(I).Cells(2).Value - Val(DataGridView5.Rows(I).Cells(2).Value) & "' WHERE (Stock.xid = '" & DataGridView5.Rows(I).Cells(11).Value & "')", Con)
           Con.Open()
           cmd.ExecuteNonQuery()
       
  Con.Close()

ان سمح واكون شاكر جدا
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة:
#7
اكواد select و update موجودة في الداتاسيت الخاصة بالمشروع DBDataSet.xsd وليست الموجودى تحت تصميم الفورم2
وستجد فيها كل من Fill وهي التي افتراضيا مع الداتاسيت
و ستجد انني أنشئت GetDataBy وتطلب بارامتر واحد وهو اسم التصنيف
و ستجد أيضا انني أنشئت UpdateQuantity وتطلب بارامتران احدهما الكمية المطلوب بيعها والثاني رقم الصنف

وهذا كود الزر البيع للفورم1
كود :
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("متاكد", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Con.Open()
            For Each r As DataGridViewRow In Me.DataGridView2.Rows
                Dim id As Integer = r.Cells(0).Value
                Dim qt As Integer = r.Cells(3).Value
                Dim cmd As New SqlCeCommand("UPDATE stock SET t3 = t3 - @qty WHERE id = @id", Con)
                cmd.Parameters.AddWithValue("@qty", qt)
                cmd.Parameters.AddWithValue("@id", id)
                cmd.ExecuteNonQuery()
            Next
            Con.Close()
            loading()
            MsgBox("تم البيع")
        End If
الرد }}}
تم الشكر بواسطة: Codack
#8
(11-10-16, 03:36 AM)ممدوح كتب : اكواد select و update موجودة في الداتاسيت الخاصة بالمشروع DBDataSet.xsd وليست الموجودى تحت تصميم الفورم2
وستجد فيها كل من Fill وهي التي افتراضيا مع الداتاسيت
و ستجد انني أنشئت GetDataBy وتطلب بارامتر واحد وهو اسم التصنيف
و ستجد أيضا انني أنشئت UpdateQuantity وتطلب بارامتران احدهما الكمية المطلوب بيعها والثاني رقم الصنف

وهذا كود الزر البيع للفورم1
كود :
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("متاكد", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Con.Open()
            For Each r As DataGridViewRow In Me.DataGridView2.Rows
                Dim id As Integer = r.Cells(0).Value
                Dim qt As Integer = r.Cells(3).Value
                Dim cmd As New SqlCeCommand("UPDATE stock SET t3 = t3 - @qty WHERE id = @id", Con)
                cmd.Parameters.AddWithValue("@qty", qt)
                cmd.Parameters.AddWithValue("@id", id)
                cmd.ExecuteNonQuery()
            Next
            Con.Close()
            loading()
            MsgBox("تم البيع")
        End If

الف شكر يا استاذي ويارب ما نتحرم منك الكود شغال والحمدلله ولو فيه استفسار هقولك
شكرا

تم بحمدلله الاجابة عن طلبي
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ

لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ


الرد }}}
تم الشكر بواسطة: ممدوح



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


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