منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : إستخدام الدات قريد DataGridView
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف احفظ التعديلات التى تمت على الداتقريد في قاعدة البيانات ؟؟
استطيع عرض ابيانات الموجوده في قاعدة بيانات على الداتقريد و لكن لاستطيع حفظ تعديلات المستخدم عليها .؟؟ HuhHuhHuh
الرجاء المساعده و لكم جزيل الشكر HeartHeartBlushBlush
السلام عليكم

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

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

تحياتي
ضع مثالك ( مشروعك ) .... ليتم الرد عليك
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)

RolleyesRolleyesRolleyes
ابسط مثال
روابط التحميل الخاصة بك يا استاذ سعود لا تعمل
(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
تسلمو على مجهوداتكم و مساعدتكم لىSmile