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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى قواعد البيانات احمد خطاب 5 113 26-11-18, 03:41 AM
آخر رد: elgokr
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 0 100 10-11-18, 05:51 AM
آخر رد: mahmoud.3com
  مشكلة قاعدة البيانات لا تقبل البيانات بعد التنصيب abozeyd 8 318 10-09-18, 08:02 AM
آخر رد: elgokr
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 651 25-08-18, 10:00 PM
آخر رد: elgokr
  [سؤال] حول تحديث البيانات داخل DataGridView مبرمج بلا حدود 20 3,816 14-08-18, 09:00 PM
آخر رد: elgokr
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 453 02-08-18, 07:26 PM
آخر رد: سعود
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 5,512 16-07-18, 08:48 PM
آخر رد: aridje34
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 241 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 277 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,473 02-03-18, 05:13 PM
آخر رد: محمد بن عطية

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


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