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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,009 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 958 07-09-21, 04:36 PM
آخر رد: bassant
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 2,350 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 1,919 31-08-21, 04:47 AM
آخر رد: a7med saba

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


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