30-07-21, 12:26 AM
اخواني اتصلت بقاعدة البينات وعندي غريد فيو
واريد اعدل على البينات من تكس بوكس الى الداتا غريد فيو
ويتحدث في قاعدة البينات اكسس
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
هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل
واريد اعدل على البينات من تكس بوكس الى الداتا غريد فيو
ويتحدث في قاعدة البينات اكسس
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
هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل