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

السلام عليكم ورحمة الله
ممكن مساعدة في حفظ Datagridview
قي قاغدة بيانات access
يحيث ان Datagridview مملوءة بعدة اسطر واعمدة
vb.net 2010
وجزاكم الله خيرا

.....

منقول

كود :

Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=db1.mdb;")

    Dim dt As New DataTable

    Dim sql As String = " SELECT * FROM [table1] "

    ' عند فتح النموذج يتم استيراد البيانات من قاعدة البيانات إلى الداتاجريدفيو

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Using da As New OleDb.OleDbDataAdapter(sql, con)

            da.Fill(dt)

            DataGridView1.DataSource = dt

        End Using

    End Sub

    '  عند غلق النموذج يتم تصديـر البيانات من الداتاجريدفيو إلى قاعدة البيانات

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        Using da As New OleDb.OleDbDataAdapter(sql, con)

            Using builder As New OleDb.OleDbCommandBuilder(da)

                da.Update(dt)

            End Using

        End Using

    End Sub

End Class

Save Rows From DataGridView to table in database.....
Private Sub InsertIntoOrder_tbl()
Try
Using conn As New SqlConnection(Me.conn)
Dim cmd As New SqlCommand(strInsertIntoOrder_tbl, conn)

cmd.Parameters.Add("@itemnumber", TinyInt)
cmd.Parameters.Add("@qty", SmallInt)
cmd.Parameters.Add("@total", Money)
cmd.Parameters.AddWithValue("@date", [Date])
cmd.Parameters.Add("@user", TinyInt)
cmd.Parameters.AddWithValue("@Order_no", Int)
conn.Open()

For i As Integer = 0 To gv1.Rows.Count - 1
Dim item_no As Integer = SQL_Class.Only_item_No(Me.conn, gv1.Rows(i).Cells(0).Value, strSelectItem_no)
cmd.Parameters(0).Value = item_no
' I named datagridview1 To gv1
cmd.Parameters(1).Value = gv1.Rows(i).Cells(1).Value
cmd.Parameters(2).Value = gv1.Rows(i).Cells(3).Value
cmd.Parameters(3).Value = gv1.Rows(i).Cells(4).Value
cmd.Parameters(4).Value = user.Manager_no
cmd.Parameters(5).Value = My.Settings.OrderNumebr
cmd.ExecuteNonQuery()

Next

End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub

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

moulayyoussef

vbnet

shwehdi4pc