16-09-13, 05:06 PM
شكرا لك أخي [b][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