[Ahmed-IT]

كيف احفظ التعديلات التى تمت على الداتقريد في قاعدة البيانات ؟؟
استطيع عرض ابيانات الموجوده في قاعدة بيانات على الداتقريد و لكن لاستطيع حفظ تعديلات المستخدم عليها .؟؟
الرجاء المساعده و لكم جزيل الشكر

[Sajad]

السلام عليكم

الموضوع في القسم الغير مناسب يرجى عدم تكرار ذلك

ينقل الى قسم برمجة قواعد البيانات تحت بيئة الـ.NET

تحياتي

[مالكـ]

ضع مثالك ( مشروعك ) .... ليتم الرد عليك

[Genius Live]

At form loading

كود :

Dim adapter As New OleDbDataAdapter()
    adapter.SelectCommand = New OleDbCommand("SELECT COL1, COL2,COL3,COL4 FROM TABLE", connection)
    Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
    connection.Open()
    Dim myTable As DataTable = New DataTable
    adapter.Fill(myTable)
    DataGridView.DataSource = myTable

at grid save

كود :

Dim myTable = CType(DataGridView.DataSource, DataTable)
    adapter.Update(myTable)

[سعود]

ابسط مثال

[tarek]

روابط التحميل الخاصة بك يا استاذ سعود لا تعمل

[سعود]

(18-02-14, 02:54 PM)tarek كتب : روابط التحميل الخاصة بك يا استاذ سعود لا تعمل

هذا بسبب gulfup وفيه بعض الاخوة يقول ان الموقع هو البديل الافضل عن فورشيرد لانه يمكنك من التحميل من غير تسجيل وهذا هو مثل ماانتم شايفين!!
لكن ماعليك المسالة بسيطة.دقائق ان شالله والمثال جديد جاهز

[سعود]

المثال مرفق

[سعود]

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim ds As New DataSet
    Dim da As New OleDbDataAdapter("select tn from tb", con)
    Dim cm As New OleDbCommandBuilder(da)

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        da.Update(ds, "tb")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Sub gd()
        ds.Clear()
        DataGridView1.DataSource = Nothing

        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
        DataGridView1.Columns(0).HeaderText = "الاسم"
        DataGridView1.Columns(0).Width = DataGridView1.Width - 10


    End Sub
End Class

[Ahmed-IT]

تسلمو على مجهوداتكم و مساعدتكم لى