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

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

استخدم هذا الكود من أجل الأضافة

كود :

'جمل الأتصال

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

وعليكم السلام
تم النقل للقسم الصحيح

تفضل اخى هذا كود التعديل على قاعدة بيانات اكسس

كود :

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")

يا أخي الفاضل هذا نفس كود الأضافة الي في المشاركة
لو سمحت ممكن كوط التعديل؟

السلام عليكم و رحمة الله و بركاته
أخي الكريم يتعين عليك البحث عن ترتيب السطر المراد تعديله في Table1
ثم تعدل قيمه
ثم تنادي على الطريقة Update
السلام عليكم و رحمة الله و بركاته

شكرا لك أخي [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

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

للأسف يا أخي لم يعمل أيضا
هل بالأمكان أن ترفق لنا مثال
شكرا

السلام عليكم و رحمة الله و بركاته

الأجدر أن ترفق مشروعك حتى نتمكن من المساعدة بصفة مباشرة و سريعة

السلام عليكم و رحمة الله و بركاته

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

ismail2012

Omar Mekkawy

alims

ismail2012

تركي قرمزلي

ismail2012

تركي قرمزلي

ismail2012

تركي قرمزلي