منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب انشاء جملة update في مشروعي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب انشاء جملة update في مشروعي (/showthread.php?tid=17610)

طلب انشاء جملة update في مشروعي - Codack - 10-10-16

السلام عليكم ورحمة الله وبركاتة
في مشروعي2 داتا جريد فيو
في الاولي بعمل اتصال بالبيانات اللي في قاعدة البيانات
وفي زر ادراج الصنف اللي  انا محدد عليه في الداتا جريد فيو الاولي بينزل في الداتا جريد فيو التانية وكل دا مظبوط وتمام مفيش مشاكل
بس المشكلة عندي هي ازاي انقص الكمية اللي في الصفوف اللي في الداتا جريد فيو التانية من قاعدة البيانات
المشروع في المرفقات

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

   

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

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

RE: طلب انشاء جملة update في مشروعي - ممدوح - 10-10-16

وعليكم السلام ورحمة الله وبركاته

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

يا ليت تشرح الفكرة أكثر

RE: طلب انشاء جملة update في مشروعي - Codack - 10-10-16

يا استاذي يا محترم

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

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

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

RE: طلب انشاء جملة update في مشروعي - ممدوح - 10-10-16

وجدت ان نوع الكمية (نص) وليس (رقم) تم التعديل

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

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

RE: طلب انشاء جملة update في مشروعي - Codack - 10-10-16

جار التجرية واشكرك على الاضافة

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


RE: طلب انشاء جملة update في مشروعي - Codack - 10-10-16

(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()

ان سمح واكون شاكر جدا

RE: طلب انشاء جملة update في مشروعي - ممدوح - 11-10-16

اكواد 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


RE: طلب انشاء جملة update في مشروعي - Codack - 11-10-16

(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

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

تم بحمدلله الاجابة عن طلبي