+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [مثال] أريد حفظ البيانات بعد تحديثها (/showthread.php?tid=37667)
أريد حفظ البيانات بعد تحديثها - mmaalmesry - 31-01-21
السلام عليكم و رحمة الله و بركاته
معى مثال مرفق لقاعدة بيانات .mdb يتم عرض الجدول الذى بداخلها فى الأداة datagridview1
و المشكلة أنه عند تغيير البيانات بالكتابة من خلال ال datagrid لا يتم التحديث للبيانات و لا أعرف ما هو الحل؟
مع العلم أننى أستخدم فيجوال استوديو 2015
و كان قد رد على الأخ سعود على نفس السؤال من يومين تقريبا و لكنى أردت أن أعرض المثال للتوضيح.
فى انتظار الرد و السلام عليكم
RE: أريد حفظ البيانات بعد تحديثها - سعود - 31-01-21
PHP كود :
Imports System.Data.OleDb
Public Class Form1
'افضل كود معرفة مسار البرنامج
Dim appfolder As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appfolder & "\Test.mdb")
Dim DS As New DataSet
Dim DA As New OleDbDataAdapter
Dim cmd As OleDbCommandBuilder
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
DS = New DataSet
DA = New OleDbDataAdapter("SELECT * FROM tbl_Test", Conn)
cmd = New OleDbCommandBuilder(DA)
DA.Fill(DS, "tbl_Test")
DataGridView1.DataSource = DS.Tables("tbl_Test")
End Sub
Private Sub cmdUpdate_Click(sender As Object, e As EventArgs) Handles cmdUpdate.Click
DA.Update(DS, "tbl_Test")
End Sub
End Class
قارن بين الكود هذا واللذي لديك لتعرف الفرق
RE: أريد حفظ البيانات بعد تحديثها - fghj3 - 01-02-21
كود :
Dim c As New OleDbCommandBuilder(DA)
DA.Update(DS, "tbl_Test")RE: أريد حفظ البيانات بعد تحديثها - mmaalmesry - 01-02-21
لقد عمل الكود بنجاح
جزاكم الله خيرا
و لكن عند تنفيذ نفس الكود على sql database لقاعدة بيانات خارجية remote access database لا يعمل و بيجيب نفس الخطأ !