+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] إضافة على اسم في قاعدة البيانات (/showthread.php?tid=15137)
إضافة على اسم في قاعدة البيانات - المبرمج العبقري - 17-03-16
السلام عليكم
أوضح لكم اخواني في الصورة التالية بأني أعمل على إضافة عدد تصوير الأوراق وضربها في الثمن ثم إضافة الثمن في الاسم الموجود في التيكست بوكس
من خلال هذا الكود
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("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
ولكني اريد أن أضيف مرة ثانية ولا أريد أن أمسح القيمة الحالية ، بل أريد أن أضيف معها ، حتى أتمكن في النهاية من طباعة التقرير الكلي بتاريخ اليوم وعدد الأوراق التي تم تصويرها فيه
فما هو الكود المستخدم
بارك الله فيكم
RE: إضافة على اسم في قاعدة البيانات - boudyonline - 17-03-16
أخي الفاضل :
أقترح اضافة Datagridview لتتمكن من اضافة اكثر من عنصر
RE: إضافة على اسم في قاعدة البيانات - المبرمج العبقري - 17-03-16
ممكن توضيح أكثر أخي بارك الله فيك
RE: إضافة على اسم في قاعدة البيانات - الكاتب - 18-03-16
كود :
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 تمثل القيمة السابقةRE: إضافة على اسم في قاعدة البيانات - المبرمج العبقري - 18-03-16
هذا هو البرنامج يا اخواني طبعا بعد تحميله والتعديل عليه من المنتدى ، أرجو اكتشاف الخطأ