+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : التعديل على قاعدة البيانات (/showthread.php?tid=65)
التعديل على قاعدة البيانات - ismail2012 - 13-09-13
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
استخدم هذا الكود من أجل الأضافة
كود :
'جمل الأتصال
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
RE: التعديل على قاعدة البيانات - Omar Mekkawy - 14-09-13
وعليكم السلام
تم النقل للقسم الصحيح
RE: التعديل على قاعدة البيانات - alims - 15-09-13
تفضل اخى هذا كود التعديل على قاعدة بيانات اكسس
كود :
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")RE: التعديل على قاعدة البيانات - ismail2012 - 15-09-13
يا أخي الفاضل هذا نفس كود الأضافة الي في المشاركة
لو سمحت ممكن كوط التعديل؟
RE: التعديل على قاعدة البيانات - تركي قرمزلي - 16-09-13
السلام عليكم و رحمة الله و بركاته
أخي الكريم يتعين عليك البحث عن ترتيب السطر المراد تعديله في Table1
ثم تعدل قيمه
ثم تنادي على الطريقة Update
السلام عليكم و رحمة الله و بركاته
RE: التعديل على قاعدة البيانات - ismail2012 - 16-09-13
شكرا لك أخي [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 TryRE: التعديل على قاعدة البيانات - تركي قرمزلي - 16-09-13
السلام عليكم و رحمة الله و بركاته
بسيطة أخي إن شاء الله ، يكفيك فقط هذا التعديل
أولا : Dr.EndEdit()m
ثم : Da.Update(Ds1,"Table1")a
لأن الترتيب مهم : إنهاء عملية التعديل ، ثم تسجيل التعديلات في القاعدة
ملاحظة : يمكنك الاستغناء عن الطريقتين beginEdit و EndEdit
السلام عليكم و رحمة الله و بركاته
RE: التعديل على قاعدة البيانات - ismail2012 - 16-09-13
للأسف يا أخي لم يعمل أيضا
هل بالأمكان أن ترفق لنا مثال
شكرا
RE: التعديل على قاعدة البيانات - تركي قرمزلي - 16-09-13
السلام عليكم و رحمة الله و بركاته
الأجدر أن ترفق مشروعك حتى نتمكن من المساعدة بصفة مباشرة و سريعة
السلام عليكم و رحمة الله و بركاته