السلام عليكم ورحمة الله وبركاتة
في مشروعي2 داتا جريد فيو
في الاولي بعمل اتصال بالبيانات اللي في قاعدة البيانات
وفي زر ادراج الصنف اللي انا محدد عليه في الداتا جريد فيو الاولي بينزل في الداتا جريد فيو التانية وكل دا مظبوط وتمام مفيش مشاكل
بس المشكلة عندي هي ازاي انقص الكمية اللي في الصفوف اللي في الداتا جريد فيو التانية من قاعدة البيانات
المشروع في المرفقات
الصورة للتوضيح
[
attachment=11943]
عايز انقص القيم اللي في الداتا جريد فيو 2 اللي تحت من قاعدة البيانات
نوع الاتصال local SQL
وعليكم السلام ورحمة الله وبركاته
المرفق وجدت فيه جدول واحد
المفروض يكون عندك جدولين جدول الأصناف وجدول آخر مثل المبيعات الصورة غير واضحة من ناحية المفهوم عل هي فواتير ام ماذا
يا ليت تشرح الفكرة أكثر
يا استاذي يا محترم
انا فقط اريد جملة ال update للجدول اللي في المشروع
المفروض اني اما ادوس بيع يعمل عملية تنقيص الكمية اللي في الداتا جريد فيو 2 من الجدول يعني جملة الابديت على الجدول اللي في المشروع
يعني ينقص من كل صنف الكمية اللي في الداتا جريد فيو بتاعتة
ينقص الكمية من خانة اسمها الكمية في داتا جريد فيو رقم 2
والداتا جريد فيو رقم 1 فيها البيانات اللي في قاعدة البيانات
يعني اما ادوس على الصنف مرتين من التادا جريد فيو رقم 1 او زر ادراج بيضاف في الداتا جريد فيو رقم 2
واما ادوس على زر بيع ينقص الكمية اللي في رقم 2 من قاعدة البيانات لكل صنف فيها
يعني هي جملة الابديت بس اللي عايزها
وجدت ان نوع الكمية (نص) وليس (رقم) تم التعديل
وجدتك اضفت DataSet فقمت باستغلالها في Form2 مع بعض التعديلات مثل التقر مرتين على السطر لإضافته
جرب واذكر النتيجة واسأل عن النقطة الغامضة بالنسبة لك
جار التجرية واشكرك على الاضافة
ملحوظة هذا مصغر من المشروع من المشروع الحقيقي الذي اعمل عليه و انا عامل حقول قاعدة البيانات اي شئ
وشكرا على المتاعة وجاري التجربة يا استاذي
(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()
ان سمح واكون شاكر جدا
اكواد 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
(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
الف شكر يا استاذي ويارب ما نتحرم منك الكود شغال والحمدلله ولو فيه استفسار هقولك
شكرا
تم بحمدلله الاجابة عن طلبي