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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 121 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  استراد ببانات الى كومبوبكس من قاعدة بيانات الرائد 6 117 13-09-19, 01:38 AM
آخر رد: الرائد
Heart كيفية نقل البيانات من جدول الى اخر الرائد 2 109 11-09-19, 02:02 AM
آخر رد: Rabeea Qbaha
  عرض البيانات من قاعدة البيانات على شكل مربع Rabeea Qbaha 7 244 09-09-19, 01:49 AM
آخر رد: Rabeea Qbaha
  مشكله فى عرض البيانات خالد كامل1 2 80 06-09-19, 11:53 PM
آخر رد: asemshahen5
  نوع البيانات في التيكست makky 1 89 04-09-19, 04:24 PM
آخر رد: asemshahen5
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 20 623 02-09-19, 07:32 PM
آخر رد: Abdalazim19
  MySql قاعدة بيانات اون لاين Kian Tech 9 1,539 02-09-19, 02:28 AM
آخر رد: viv
  منع تكرار البيانات المدخلة على قاعدة البيانات الرائد 11 317 01-09-19, 02:46 PM
آخر رد: الرائد
  كيفية رفع قاعدة البيانات سيكول سيرفر للاتصال بها من اى مكان ahmedramzyaish 3 147 29-08-19, 10:03 PM
آخر رد: asemshahen5

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


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