السلام عليكم ورحمة الله وبركاته
طريقتك معقدة ... هذه الطريقة التي اعمل بها وهي جيدة :
وفي زر الحفظ :
مع ملاحظة أن هذه الطريقة لا تحتاج إلي فتح الإتصال بقاعدة البيانات (بتتصل لوحدها) يعني لا نحتاج للكود التالي عند التعامل معها :
****
***
**
*
طريقتك معقدة ... هذه الطريقة التي اعمل بها وهي جيدة :
كود :
Public Class Form1
Dim DA As OleDb.OleDbDataAdapter
Dim CMD As OleDb.OleDbCommand
Dim CB As OleDb.OleDbCommandBuilder
Dim DS As DataSet
Dim BS As BindingSource
Private Sub SaveCommand()
CMD = New OleDb.OleDbCommand("SELECT Cat,SubCatCode,OldJob,NewJob, OldSalary,NewSalary,GiveDate,OrderNo,OrderDate FROM Store2", Conn)
DA = New OleDb.OleDbDataAdapter(CMD)
CB = New OleDb.OleDbCommandBuilder(DA)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "Store2")
BS = New BindingSource(DS, "Store2")
DataGridView1.DataSource = BS
End Sub
End Classوفي زر الحفظ :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BS.EndEdit()
DA.Update(DS, "Store2")
End Subمع ملاحظة أن هذه الطريقة لا تحتاج إلي فتح الإتصال بقاعدة البيانات (بتتصل لوحدها) يعني لا نحتاج للكود التالي عند التعامل معها :
كود :
If Conn.State() Then Conn.Close()
Conn.Open()****
***
**
*