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

اخواني اتصلت بقاعدة البينات وعندي غريد فيو
واريد اعدل على البينات من تكس بوكس الى الداتا غريد فيو
ويتحدث في قاعدة البينات اكسس 
Imports System.Data.OleDb
Public Class Form2
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\hp\Desktop\mmmm.accdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable

    Sub Loed_data()

        dt.Clear()
        da = New OleDbDataAdapter("select * from mm1", con)
        da.Fill(dt)
    End Sub


    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Loed_data()
        Mm2DataGridView.DataSource = dt

    End Sub
    Sub save()

        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub


    Private Sub Mm2DataGridView_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles Mm2DataGridView.SelectionChanged

        Dim pas As String = BindingContext(dt).Position

        TextBox1.Text = dt.Rows(pas).Item(1)
        TextBox2.Text = dt.Rows(pas).Item(2)
        TextBox3.Text = dt.Rows(pas).Item(3)
        TextBox4.Text = dt.Rows(pas).Item(4)
        TextBox5.Text = dt.Rows(pas).Item(5)
        TextBox6.Text = dt.Rows(pas).Item(6)
        DateTimePicker1.Value = dt.Rows(pas).Item(7)
        DateTimePicker2.Value = dt.Rows(pas).Item(7)
        TextBox9.Text = dt.Rows(pas).Item(9)


    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        dt.Rows.Add()
        Dim pas As String = BindingContext(dt).Position

        dt.Rows(pas).Item(1) = TextBox1.Text
        dt.Rows(pas).Item(2) = TextBox2.Text
        dt.Rows(pas).Item(3) = TextBox3.Text
        dt.Rows(pas).Item(4) = TextBox4.Text
        dt.Rows(pas).Item(5) = TextBox5.Text
        dt.Rows(pas).Item(6) = TextBox6.Text
        dt.Rows(pas).Item(7) = DateTimePicker1.Value.ToShortDateString
        dt.Rows(pas).Item(8) = DateTimePicker2.Value.ToShortDateString
        dt.Rows(pas).Item(9) = TextBox9.Text
        Loed_data()

    End Sub
هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل