VB 2008 - SQL Server 2005 - DataGridView - 更新ボタン - データベースへの変更の書き込み

話題は広い。以下は、DataTable と DataAdapter を使用したサンプルです。 DataTable は、データベースからのデータを保持し、グリッドにバインドされたときにユーザーが特定の行に加えた変更を追跡するために使用されます。アダプターは、有効な SQL SELECT が提供されると、更新および削除のコマンドを実行するために必要な SQL を生成します。目的を達成するにはさまざまな方法がありますが、これは実行できる方法のサンプルです。以下のコードを確認した後、特定のクラスをより深く掘り下げて、それらについてさらに学び、ニーズに合わせて調整することをお勧めします。

注:接続文字列 あなたの場合の変数名は、このリストに示されているものとは異なる場合があります:

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