تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جمع حقلين وتخزينهما فى قاعدة البيانات
#1
ال
[COLOR="#0000FF"]السلام عليكم
حاولت ان اكتب هذا الكود لجمع حقلين وتخزين الناتج فى حقل ثالث
الكود لم يعطنى خطاء
ولكنة لم يقوم بتخزين الناتج
بحث كثيرا ولم اسطيع الحصول على اجابة
ربما يحتاج الموضوع الى تحديث ولكننى لم استطع[/COLOR]


PHP كود :
Dim ss As String "select * from employ "
        
Dim aad As New OleDbDataAdapter(sscn)
        
Dim dss As New DataSet
        
'dss.Clear()
        aad.Fill(dss, "employ")

        For Each row As DataRow In dss.Tables("employ").Rows
            row.Item("tt13") = row.Item("tt8") + row.Item("tt12")
        Next
        MsgBox("تمت عملية التعديل   بنجاح", MsgBoxStyle.DefaultButton1, " ") 
الرد }}}}
تم الشكر بواسطة:
#2
الامر بسيط جدا
قاعدة البيانات اسمها db.accdb يعني اكسس 2007
الجدول tb
الاعمدة: tid = ترقيم تلقائي
c1 رقمي
c2 رقمي
c3 رقمي




اضف datagridview
وزر امر
اكتب الروتين التالي وهو فقط لجلب البيانات
كود :
Sub getdaat()      
Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)








        ds.Clear()
        DataGridView1.DataSource = Nothing








        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"








    End Sub




في حدث تحميل الفورم اكتب
كود :
getdaat()
في مكان التصاريح العامة اكتب
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"    
Dim con As New OleDbConnection(str)




بحدث النقر لزر الامر اكتب
كود :
Dim sql As String = "select * from tb"        Dim cm As New OleDbCommand(sql, con)








        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Dim dr As OleDbDataReader = cm.ExecuteReader
        While dr.Read
            Dim up As New OleDbCommand("update tb set c3=c1+c2", con)
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Try
                up.ExecuteNonQuery()








            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")








            End Try
        End While
        getdaat()
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
[COLOR="#0000FF"]السلام عليكم
شكرا اخ سعود وبارك الله فيك
فعلا طبقت المثال واشتغل مزبوط
ولكننى كنت اريد ان اعرف ان الكود الذى كتبتة
هل هو صحيح ام لا
ومرة اخرى بارك الله فيك
[/COLOR]


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 71.47 ك ب / التحميلات : 29)
الرد }}}}
تم الشكر بواسطة:
#4
كودك صحيح فقط ينقص commandbuilder
كود :
Dim ss As String = "select * from tb"        

Dim aad As New OleDbDataAdapter(ss, con)
        Dim co As New OleDbCommandBuilder(aad)
        Dim dss As New DataSet
        dss.Clear()
        aad.Fill(dss, "tb")




        For Each row As DataRow In dss.Tables("tb").Rows
            row.Item("c3") = row.Item("c1") + row.Item("c2")
        Next
        aad.Update(dss, "tb")
        getdaat()
        MsgBox("تمت عملية التعديل   بنجاح", MsgBoxStyle.DefaultButton1, " ")
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 108 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 144 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 244 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 144 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 243 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 168 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 153 14-07-17, 09:43 AM
آخر رد: وادي العوضي
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 153 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 670 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 311 25-06-17, 01:47 PM
آخر رد: silverlight

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


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