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

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

الرجاء المساعده و لكم جزيل الشكر Heart

السلام عليكم

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

ينقل الى قسم برمجة قواعد البيانات تحت بيئة الـ.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)

ابسط مثال

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

(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

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

Ahmed-IT

Sajad

مالكـ

Genius Live

سعود

tarek

سعود

سعود

سعود

Ahmed-IT