تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على قاعدة البيانات
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

استخدم هذا الكود من أجل الأضافة
كود :
'جمل الأتصال
Public ds1 As New DataSet
    Public dc As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source= C:/db1.mdb")
  Public constr As String=("select * from table name")    
Public da As New OleDbDataAdapter(constr, dc)
    Public da1 As New OleDbDataAdapter("select * from Contents", dc)
    Public cb As New OleDbCommandBuilder(da)

'code  
Dim newrow As System.Data.DataRow
        newrow = ds1.Tables("table name").NewRow
        newrow.Item(0) = TextBox1.Text
        newrow.Item(1) = TextBox2.Text
        ds1.Tables("table name").Rows.Add(newrow)
                         da.InsertCommand = cb.GetInsertCommand
        da.Update(ds1, "table name")
dc.Close

المطلوب كود التعديل ولكن بنفس الطريقة يعني مش خلال SQL
الرد
تم الشكر بواسطة:
#2
وعليكم السلام
تم النقل للقسم الصحيح
الرد
تم الشكر بواسطة:
#3
تفضل اخى هذا كود التعديل على قاعدة بيانات اكسس
كود :
Dim da As New SqlDataAdapter("select * from Table1", con)
        Dim ds As New DataSet
        Dim cm As New SqlCommandBuilder(da)
        da.Fill(ds, "Table1")

        Dim dr As DataRow = ds.Tables("Table1").NewRow

        dr.Item("id") = tnu.Text
        dr.Item("name") = tname.Text

        ds.Tables("Table1").Rows.Add(dr)
        da.Update(ds, "Table1")
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة:
#4
يا أخي الفاضل هذا نفس كود الأضافة الي في المشاركة
لو سمحت ممكن كوط التعديل؟
الرد
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله و بركاته
أخي الكريم يتعين عليك البحث عن ترتيب السطر المراد تعديله في Table1
ثم تعدل قيمه 
ثم تنادي على الطريقة Update 
السلام عليكم و رحمة الله و بركاته
الرد
تم الشكر بواسطة:
#6
شكرا لك أخي [b][b]تركي قرمزلي[/b][/b][b] أنا وجدت طريقة هي نفس الطريقة المطلوبة
لكنها تقوم بالتعديل على الداتا سيت فقط دون قاعدة البيانات
[/b]
كود :
[b][b]  Dim dr As System.Data.DataRow

            dr = ds1.Tables("Table1").Rows(0)

            dr.BeginEdit()


            dr(0) = CodeTitle.Text

            dr(1) = CodeText.Text

            da.Update(ds1, "Table1")
            dr.EndEdit()


            MsgBox("تم التغيير بنجاح ", MsgBoxStyle.Information, "تغيير")

            dc.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try
الرد
تم الشكر بواسطة:
#7
السلام عليكم و رحمة الله و بركاته
بسيطة أخي إن شاء الله ، يكفيك فقط هذا التعديل
أولا : Dr.EndEdit()m
ثم : Da.Update(Ds1,"Table1")a
 لأن الترتيب مهم : إنهاء عملية التعديل ، ثم تسجيل التعديلات في القاعدة
ملاحظة : يمكنك الاستغناء عن الطريقتين beginEdit و EndEdit
السلام عليكم و رحمة الله و بركاته
الرد
تم الشكر بواسطة:
#8
للأسف يا أخي لم يعمل أيضا
هل بالأمكان أن ترفق لنا مثال
شكرا
الرد
تم الشكر بواسطة:
#9
السلام عليكم و رحمة الله و بركاته
الأجدر أن ترفق مشروعك حتى نتمكن من المساعدة بصفة مباشرة و سريعة
السلام عليكم و رحمة الله و بركاته
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart مشكلة ال ID في عدم تخزين وترتيب البيانات بشكل منتظم الرائد 5 106 أمس, 01:42 AM
آخر رد: الرائد
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,479 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 195 06-06-19, 12:23 AM
آخر رد: elgokr
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 279 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 218 11-05-19, 04:02 AM
آخر رد: Emam emam
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 166 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] قاعدة بيانات postgress tarek 2 251 06-04-19, 09:07 PM
آخر رد: elgokr
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 316 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 715 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 243 21-02-19, 04:38 PM
آخر رد: elgokr

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


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