ذخیره اطلاعات دیتاگرید

[samiasoft]

سلام دوستان

من با استفاده از دستورات زیر یک دیتابیس اکسس را در دیتاگرید به نمایش میگذارم :

 connect.Open()

        Dim dt As New DataTable

        Dim da As New OleDbDataAdapter

        Dim ds As New DataSet

        Dim strsql As String

        strsql = "select name1,name2 from table1 "

        da = New OleDbDataAdapter(strsql, connect)

        da.Fill(dt)

        DataGridView1.DataSource = dt

        connect.Close()

DataGridView1.ReadOnly = False

        DataGridView1.AllowUserToAddRows = True

حال من میخواستم وقتی ستون یا ردیفی را در داخل دیتاگرید ویرایش یا اضافه میکنم بطور اتوماتیک داخل دیتابیس نیز اضافه یا ذخیره گردد. برای این منظور چه دستوری باید نوشت ؟

[samiasoft]

بدین صورت دستور رو نوشتم....با اینکه پیغام موفقیت امیز میده ولی در خود فایل دیتابیس ذخیره نمیشه ! دلیلش چیه به نظرتون؟

 Dim da As New OleDbDataAdapter

        Dim ds As New DataSet

        Dim strsql As String





Try

            strsql =  "select name1,name2 from table1"

            da = New OleDbDataAdapter(strsql, connect)

            da.Fill(ds, "table1")

            Dim Cb As New OleDbCommandBuilder(da)

            da.UpdateCommand = Cb.GetUpdateCommand

            da.Update(ds, "table1")

            MsgBox("با موفقیت ذخیره شد", MsgBoxStyle.Information, "hi")





        Catch ex As Exception

            MsgBox("رویداد خطا", MsgBoxStyle.Critical, "Error")

        End Try

صفحات زیر رو هم بررسی کردم ولی مشکل همچنان پابرجاست.
https://barnamenevis.org/showthread.p...tUpdateCommand
https://barnamenevis.org/showthread.p...tUpdateCommand
https://barnamenevis.org/showthread.p...tUpdateCommand

[pamapz]

توی خط 11 دستور آپدیت چیه ؟
سوالم از شما : متوجه شدین چیکار کردین ؟ خط 11 با 12 چرا با da ماجرارو دنبال کردین ؟

[gilsoft]

حال من میخواستم وقتی ستون یا ردیفی را در داخل دیتاگرید ویرایش یا اضافه میکنم بطور اتوماتیک داخل دیتابیس نیز اضافه یا ذخیره گردد. برای این منظور چه دستوری باید نوشت ؟

سلام دوست عزیز
سال نو مبارک

اینم کد مربوطه:

Imports System.Data

Imports System.Data.SqlClient





Public Class Form2

    Dim conStr As String = "Data Source=LocalHost; Initial Catalog=TestDB; Integrated Security=True; Connection Timeout=15;"

    Dim cmdStr As String = "SELECT * FROM AccIG"

    Dim con As SqlConnection

    Dim da As SqlDataAdapter

    Dim DT As New DataTable



    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        con = New SqlConnection(conStr)

        da = New SqlDataAdapter(cmdStr, con)

        da.Fill(DT)

        DataGridView1.DataSource = DT

    End Sub



    Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click

        Using Cnn As New SqlConnection(conStr)

            DataGridView1.EndEdit()

            da.SelectCommand = New SqlCommand(cmdStr, Cnn)

            Dim builder As New SqlCommandBuilder(da)

            Cnn.Open()

            da.Fill(DT)



            da.Update(DT)

            DT.AcceptChanges()

        End Using

    End Sub

End Class

موفق باشید .....