VB 2008 - SQL Server 2005 - DataGridView - бутон за актуализиране - запис на промени в базата данни

Темата е широка. По-долу е пример с използване на DataTable и DataAdapter. DataTable се използва за съхраняване на данни от базата данни и проследяване на промените, направени от потребителя в конкретни редове, когато са свързани с мрежата. Адаптерът генерира sql, необходим за изпълнение на команди за актуализиране и изтриване, при условие че е валиден SQL SELECT. Има много различни начини да постигнете това, което искате, но това е пример за това, което можете да направите. След като разгледате кода по-долу, може да поискате да се задълбочите в конкретни класове, за да научите повече за тях и да ги адаптирате към вашите нужди.

Забележка:Вашият низ за свързване и имената на променливите във вашия случай може да се различават от това, което е показано в този списък:

Imports System.Data.SqlClient
Public Class Form1
    Dim connetionString As String
    Dim connection As SqlConnection
    Dim adapter As SqlDataAdapter
    Dim cmdBuilder As SqlCommandBuilder
    Dim ds As New DataSet
    Dim changes As DataSet
    Dim sql As String
    Dim i As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        connection = New SqlConnection(connetionString)
        sql = "select * from Product"
        Try
            connection.Open()
            adapter = New SqlDataAdapter(sql, connection)
            adapter.Fill(ds)
            connection.Close()
            DataGridView1.DataSource = ds.Tables(0)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '*** Process updates as made by the user in the datagridview control.
        Try
            cmdBuilder = New SqlCommandBuilder(adapter)
            changes = ds.GetChanges()
            If changes IsNot Nothing Then
                adapter.Update(changes)
            End If
            MsgBox("Changes Done")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

Адаптирано от източник:http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm