تقييم الموضوع :
  • 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
السلام عليكم و رحمة الله و بركاته
الأجدر أن ترفق مشروعك حتى نتمكن من المساعدة بصفة مباشرة و سريعة
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,592 10-05-17, 03:13 PM
آخر رد: safalo
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 84 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 848 03-04-17, 02:48 AM
آخر رد: ابو إياد
  استفسار حول عدم تكرار البيانات المتألق9 3 148 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 181 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 151 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 163 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 166 28-02-17, 03:27 PM
آخر رد: djelloul
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 0 166 18-02-17, 01:58 PM
آخر رد: boofa2015

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


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