تقييم الموضوع :
  • 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 م ب / التحميلات : 16)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف يتم إضافة برنامجي في خيارات الملفات Easy4ever 1 30 اليوم, 01:05 AM
آخر رد: Adrees
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 55 18-05-17, 06:28 AM
آخر رد: khaled12345
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 130 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 288 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 285 11-05-17, 11:54 AM
آخر رد: khaled12345
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 3 109 05-05-17, 10:24 PM
آخر رد: samawi
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 228 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
Photo [سؤال] بحث في قاعده البيانات من خلال combobox سنان عبدالله سنان 2 90 02-05-17, 01:20 AM
آخر رد: ابو ليلى

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


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