Temat jest szeroki. Poniżej znajduje się przykład przy użyciu DataTable i DataAdapter. DataTable służy do przechowywania danych z bazy danych i śledzenia zmian wprowadzonych przez użytkownika w określonych wierszach po powiązaniu z siatką. Adapter generuje sql wymagane do wykonania poleceń update i delete pod warunkiem poprawnego SQL SELECT. Istnieje wiele różnych sposobów na osiągnięcie tego, co chcesz, jednak jest to próbka tego, co możesz zrobić. Po zapoznaniu się z poniższym kodem możesz zagłębić się w konkretne klasy, aby dowiedzieć się o nich więcej i dostosować je do swoich potrzeb.
Uwaga:Twoje parametry połączenia i nazwy zmiennych w twoim przypadku mogą różnić się od tych, które są pokazane na tej liście:
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
Zaczerpnięte ze źródła:http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm
