تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] إضافة على اسم في قاعدة البيانات
#1
السلام عليكم
أوضح لكم اخواني في الصورة التالية بأني أعمل على إضافة عدد تصوير الأوراق وضربها في الثمن ثم إضافة الثمن في الاسم الموجود في التيكست بوكس
من خلال هذا الكود
       Dim a As Integer = Convert.ToInt32(t1.Text)
       Dim b As Decimal = Convert.ToDecimal(t2.Text)
       Dim result As Decimal = a * b
       t.Text = result.ToString()

       Dim SavInto As New OleDb.OleDbCommand
       Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
       SavInto.Connection = Conn
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "UPDATE Table1 SET تصوير = '" & Trim(t.Text) & "' , الوظيفة = '" & Trim(TextBox3.Text) & "' , التليفون = '" & Trim(TextBox4.Text) & "'  WHERE التليفون ='" & m & "'"

       Conn.Open()
       SavInto.ExecuteNonQuery()
       Conn.Close()
       MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

ولكني اريد أن أضيف مرة ثانية ولا أريد أن أمسح القيمة الحالية ، بل أريد أن أضيف معها ، حتى أتمكن في النهاية من طباعة التقرير الكلي بتاريخ اليوم وعدد الأوراق التي تم تصويرها فيه
فما هو الكود المستخدم
بارك الله فيكم


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
أخي الفاضل :

أقترح اضافة Datagridview لتتمكن من اضافة اكثر من عنصر
الرد
تم الشكر بواسطة:
#3
ممكن توضيح أكثر أخي بارك الله فيك
الرد
تم الشكر بواسطة:
#4
كود :
If t.Text.Trim = "" Then
            GoTo M ' يخرج إذا لم يكن المجموع ذا قيمة
        End If
        Dim SOMING As Integer = t.Text ' متغير لتخزين القيمة السابقة وجمعها مع القيمة الجديدة
        t.Text = ""
M:      ' بعد الخروج يصل هنا
        Dim a As Integer = Convert.ToInt32(t1.Text)
        Dim b As Decimal = Convert.ToDecimal(t2.Text)
        Dim result As Decimal = a * b
        Dim t3 As Integer = (result) ' نالتج العملية


        t.Text = result.ToString + SOMING ' جمع القيمة السابقة مع الناتج الحالي


        ' SOMING تمثل القيمة السابقة
الرد
تم الشكر بواسطة:
#5
هذا هو البرنامج يا اخواني طبعا بعد تحميله والتعديل عليه من المنتدى ، أرجو اكتشاف الخطأ


الملفات المرفقة
.rar   EngAuday.rar (الحجم : 2.2 م ب / التحميلات : 44)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 25 أمس, 07:32 PM
آخر رد: محمد اسماعيل
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 117 09-12-18, 08:14 AM
آخر رد: asemshahen5
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 66 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 42 06-12-18, 04:36 PM
آخر رد: dubai.eig
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 0 108 04-12-18, 11:52 PM
آخر رد: abo ragab
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 559 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  حذف ملف خارجي بدلالة قاعدة البيانات riyadh jihad 1 47 01-12-18, 02:11 PM
آخر رد: حريف برمجة
  محتاج مساعدة فى عمل بسورد لى برنامجى+رابط قاعدة البينات من الاسطضافة Mohamed Magdy 14 287 29-11-18, 10:36 PM
آخر رد: Mohamed Magdy
  سؤال في إضافة مكتبه Emam emam 1 62 29-11-18, 04:24 PM
آخر رد: ابراهيم ايبو
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 2 184 29-11-18, 03:09 AM
آخر رد: Rabeea Qbaha

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


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