VB 2008 - SQL Server 2005 - DataGridView - update-knop - schrijf wijzigingen in database

Het onderwerp is breed. Hieronder ziet u een voorbeeld met DataTable en DataAdapter. DataTable wordt gebruikt om gegevens uit de database vast te houden en om wijzigingen bij te houden die door de gebruiker zijn aangebracht in specifieke rijen wanneer deze aan het raster zijn gebonden. De adapter genereert de sql die nodig is om de opdrachten voor bijwerken en verwijderen uit te voeren, mits een geldige SQL-SELECTIE. Er zijn veel verschillende manieren om te bereiken wat je wilt, maar dit is een voorbeeld van wat je kunt doen. Nadat je de onderstaande code hebt bekeken, wil je misschien dieper in specifieke klassen duiken om er meer over te leren en ze aan je behoeften aan te passen.

Opmerking:uw verbindingsreeks en variabelenamen kunnen in uw geval afwijken van wat in deze lijst wordt getoond:

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

Aangepast van bron:http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm