تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جمع قيمة عند تحديث البيانات
#1
السلام عليكم

عندي كود لتحديث البيانات عند التعديل

والكود يعمل بشكل جيد

ولكن اردت التعديل علي خلية مع زيادة قيمة الخلية مباشرة مع عملية التعديل بقيمة من تيكست بوكس

يعني الخلية قيمتها بالداتا 100  وانا بعدل عايز اضيف 20قيمة اسندها الي التيكست بوكس  الي قيمة الخلية  عشان تبقي بعد التعديل 120

استخدمت الكود التالي ولكن لا يعمل يعطي نفس قيمة الخلية

الكود


كود :
Sub updatd()
       PURCH_.con.Open()
       Dim Sav As New OleDb.OleDbCommand
       Sav.Connection = PURCH_.con
       Sav.CommandType = CommandType.Text
       Sav.CommandText = "UPDATE TBPURCH_ SET  TBPURCH_.NUM_TBPURCH += '" & _
      NUMTYPE_.Text & "' , TBPURCH_.TOTA_TBPURCH += '" & _
        TOTAPURCH_.Text & "' where ID_TBPURCH LIKE '" & _
       IDTEXT_.Text & "'"

       Sav.ExecuteNonQuery()
       Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TBPURCH_ Order By ID_TBPURCH", con)

       If PURCH_.con.State = ConnectionState.Open Then
           PURCH_.con.Close()
       End If
   End Sub


حاولت ايضا باضافة رمز الجمع قبل التيكست المراد اضافة قيمتة للخلية
الرد }}}
تم الشكر بواسطة:
#2
استدعي قيمة الخلية اولا في متغير integer
ثم اضف عليها الزيادة 
ثم حدث
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#3
(28-03-18, 11:48 PM)محمود صالح كتب : استدعي قيمة الخلية اولا في متغير integer
ثم اضف عليها الزيادة 
ثم حدث

جزاك اللة الف خير ولكن لي طلب

الجدول هذا المحدث خاص بفورم المشتريات بمكان اخر
كيف اظهر بيانات خلية من غير داتا جريد فيو لها

انا عندي برنامج مبيعات وعندي فورم شراء وفورم بيع وتابعت مسبقا برنامجك للبيع باسم 9

لما ابيع بجيب البيانات من فورم الشراء واضيفها لفورم البيع مع طرح القيم من فورم الشراء
واضيف الاصناف للفاتورة بالداتا جريد بفورم البيع

المشكلة اني لو حبيت احذف صنف تم اضافتها يجب ان ارجع الي مخزنة لزيادة القيمة بالقيمة قبل حذف  الصف الخاص بالعدد للمنتج كيف يتم هذا
الرد }}}
تم الشكر بواسطة:
#4
تعمل فنكشن لترجيع قيمة الخلية
PHP كود :
   Public Function NUM_(ByVal TXT_ As String) As Decimal
        Dim CMD 
As New SqlCommand(TXT_CON)
 
       OPEN_CON()
 
       Return CMD.ExecuteScalar()
 
       CLOSE_CON()
 
   End Function 
طبعا CON هي الاتصال و OPEN_CON و CLOSE_CON هي فتح وغلق الاتصال كما هو معروف

بعد كده هتشغل الفنكشن بشكل ده 

PHP كود :
       Dim num As Decimal NUM_("Select val from table where NAME_T like '" TextBox1.Text "'  "
مع تغير جملة الاستعلام 
هيرجعلك قيمة الخلية في المتغير NUM
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#5
(29-03-18, 12:52 AM)محمود صالح كتب : تعمل فنكشن لترجيع قيمة الخلية
PHP كود :
   Public Function NUM_(ByVal TXT_ As String) As Decimal
        Dim CMD 
As New SqlCommand(TXT_CON)
 
       OPEN_CON()
 
       Return CMD.ExecuteScalar()
 
       CLOSE_CON()
 
   End Function 
طبعا CON هي الاتصال و OPEN_CON و CLOSE_CON هي فتح وغلق الاتصال كما هو معروف

بعد كده هتشغل الفنكشن بشكل ده 

PHP كود :
       Dim num As Decimal NUM_("Select val from table where NAME_T like '" TextBox1.Text "'  "
مع تغير جملة الاستعلام 
هيرجعلك قيمة الخلية في المتغير NUM

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

عندي بفورم وجدول البيع طبعا الايدي لايتكرر فافضل ليا بدل ماكتب اسم الصنف

بفورم المشتريات

- عمود الايدي بالجدول ياخذ اسم id_tb   
-  عمود الصنف بالجدول ياخذ اسم type_tb
- عمود الكمية بالجدول ياخذ اسم moun_tb

الاضافة التي تمت بالفاتورة بفورم البيع والتي تاتي من فورم المشتريات مثلا
لو عندي الايدي 5  مثلا ,  واسم الصنف "كشكول 60 صفحة " , الكمية التي تم بيعها 10    والكمية الاصلية 50 مثلا

كيف استدعي الكمية بالجدول الخاص بالمشتريات عن الايدي او اسم الصنف السابق ذكرهم

- جملة الاستعلام الي حضرتك وضعتها
PHP كود :
NAME_T اسم الجدول 
val    
?  تشير الي اية 
الرد }}}
تم الشكر بواسطة:
#6
PHP كود :
Select SUM(moun_tb)AS moun_tb from "اسم الجدول" where id_tb like '" & TextBox1.Text & "' 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#7
(29-03-18, 01:19 AM)محمود صالح كتب :
PHP كود :
Select SUM(moun_tb)AS moun_tb from "اسم الجدول" where id_tb like '" & TextBox1.Text & "' 

اللّهمّ إني أسألك من فضلك ورحمتك، فإنّه لا يملكها إلا أنت.

ان يرزقك الجنة

مش عارف اشكر حضرتك ازاي

في سؤال بسيط انا لم ارا هذة الطريقة ولكن هيا الي جت بتفكيري هل هذا برمجيا منطقي وعملي مع البيانات الضخمة ام طريقتي غير مجدية ويوجد افضل منها لنقل البيانات من فورم الشراء الي فورم البيع وانشاء الفواتيير كما  سبق وذكرت طبعا انا بعتم علي وسيط بالمتغيرات بين الجدوليين مع احداث الاضافة والتعديل
الرد }}}
تم الشكر بواسطة:
#8
لو الى فهمته صح انك تريد ان تنقل عناصر فاتورة المشتريات الى فاتورة مبيعات بدل ما تكتبها مرة اخرى
مفيش مشكلة لانها اصناف معدودة
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#9
(29-03-18, 01:58 AM)محمود صالح كتب : لو الى فهمته صح انك تريد ان تنقل عناصر فاتورة المشتريات الى فاتورة مبيعات بدل ما تكتبها مرة اخرى
مفيش مشكلة لانها اصناف معدودة

طيب اخيرا انشاء اللّة الاستعلام السابق ذكرة جاب البيانات معايا بس في حاجة صغيرة لما ضغط مرة اخري علي بوتن مثلا  ظهر القيمة بصفر و قيمة الخلية 12 لنفس كود الايدي هل هذا امر طبيعي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 196 26-02-24, 01:07 AM
آخر رد: asdfar1977
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 171 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 264 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 270 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 282 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 282 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,866 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 372 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 425 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 376 22-11-23, 05:31 PM
آخر رد: justforit

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


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