[سؤال] اخواني اتصلت بقاعدة البينات وعندي غريد فيو - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : [سؤال] اخواني اتصلت بقاعدة البينات وعندي غريد فيو (/showthread.php?tid=39170)

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