منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - جمع حقلين وتخزينهما فى قاعدة البيانات

ال

[COLOR="#0000FF"]السلام عليكم
حاولت ان اكتب هذا الكود لجمع حقلين وتخزين الناتج فى حقل ثالث
الكود لم يعطنى خطاء
ولكنة لم يقوم بتخزين الناتج
بحث كثيرا ولم اسطيع الحصول على اجابة
ربما يحتاج الموضوع الى تحديث ولكننى لم استطع[/COLOR]

PHP كود :

Dim ss As String = "select * from employ "
        Dim aad As New OleDbDataAdapter(ss, cn)
        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, " ") 

الامر بسيط جدا
قاعدة البيانات اسمها 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()

[COLOR="#0000FF"]السلام عليكم
شكرا اخ سعود وبارك الله فيك
فعلا طبقت المثال واشتغل مزبوط
ولكننى كنت اريد ان اعرف ان الكود الذى كتبتة
هل هو صحيح ام لا
ومرة اخرى بارك الله فيك[/COLOR]

كودك صحيح فقط ينقص 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, " ")

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صالح الشنطى

سعود

صالح الشنطى

سعود