تقييم الموضوع :
  • 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
هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تلوين خلية واحدة فقط فى الداتا غريد اذا تغيرت القيمة ؟ a.amin 11 7,224 15-02-23, 02:13 PM
آخر رد: tighrmte
  ملى الصفحة تلقائياً او ربط مستعرض الانترنت بقاعدة البيانات علي عدنان 2 3,848 02-02-21, 01:31 AM
آخر رد: فارس زيدان
  حفظ اكثر من اربعة حقل بقاعدة اكسس الوضع المنفصل Arfat007 0 1,356 19-10-20, 04:19 PM
آخر رد: Arfat007
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 6 4,019 02-10-20, 07:42 AM
آخر رد: alfaiz678
  [سؤال] عجزت عن عمل اتصال بقاعدة بيانات (SQL Server) مرفوعه على استضافة يوجد مثال khalidalwdi 14 4,832 21-12-19, 10:48 PM
آخر رد: khalidalwdi
  [سؤال] اخواني السلام عليكم ورحمة الله انا مبتدي في البرمجة اريد كود ربط sql server 2014 mohamedhota 1 1,998 04-04-19, 07:55 PM
آخر رد: elgokr
  الاتصال بقاعدة بيانات mdf موجودة على القرص نور الهدى الهدى 10 5,075 18-03-19, 08:55 PM
آخر رد: 5000
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 1,618 13-02-19, 01:03 AM
آخر رد: EMADSSS
  الاتصال بقاعدة بيانات اكسس وفق نظام 64 بايت raaddawood 0 1,887 28-01-19, 09:21 PM
آخر رد: raaddawood
  [VB.NET] الاتصال بقاعدة بيانات Access على استضافه YazanOtoum 8 5,984 05-01-19, 06:05 PM
آخر رد: musa al7elo

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


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