تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اخواني اتصلت بقاعدة البينات وعندي غريد فيو
#1
اخواني اتصلت بقاعدة البينات وعندي غريد فيو
واريد اعدل على البينات من تكس بوكس الى الداتا غريد فيو
ويتحدث في قاعدة البينات اكسس 
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
هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ملى الصفحة تلقائياً او ربط مستعرض الانترنت بقاعدة البيانات علي عدنان 2 2,862 02-02-21, 01:31 AM
آخر رد: فارس زيدان
  حفظ اكثر من اربعة حقل بقاعدة اكسس الوضع المنفصل Arfat007 0 664 19-10-20, 04:19 PM
آخر رد: Arfat007
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 6 2,413 02-10-20, 07:42 AM
آخر رد: alfaiz678
  [سؤال] عجزت عن عمل اتصال بقاعدة بيانات (SQL Server) مرفوعه على استضافة يوجد مثال khalidalwdi 14 2,893 21-12-19, 10:48 PM
آخر رد: khalidalwdi
  [سؤال] اخواني السلام عليكم ورحمة الله انا مبتدي في البرمجة اريد كود ربط sql server 2014 mohamedhota 1 1,316 04-04-19, 07:55 PM
آخر رد: elgokr
  الاتصال بقاعدة بيانات mdf موجودة على القرص نور الهدى الهدى 10 3,187 18-03-19, 08:55 PM
آخر رد: 5000
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 1,189 13-02-19, 01:03 AM
آخر رد: EMADSSS
  الاتصال بقاعدة بيانات اكسس وفق نظام 64 بايت raaddawood 0 1,250 28-01-19, 09:21 PM
آخر رد: raaddawood
  [VB.NET] الاتصال بقاعدة بيانات Access على استضافه YazanOtoum 8 4,682 05-01-19, 06:05 PM
آخر رد: musa al7elo
  [سؤال] اريد جعل قاعدة البينات تقبل ادخل لاكثر من يوزر فى نفس الوقت issamsaidd 2 1,522 30-12-18, 08:33 PM
آخر رد: issamsaidd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم