Emnet er bredt. Nedenfor er et eksempel ved hjælp af DataTable og DataAdapter. DataTable bruges til at holde data fra databasen og spore ændringer foretaget af brugeren til specifikke rækker, når de er bundet til gitteret. Adapteren genererer den sql, der kræves til at udføre kommandoer til opdatering og sletning, forudsat en gyldig SQL SELECT. Der er mange forskellige måder at opnå det, du ønsker, men dette er et eksempel på, hvad du kan gøre. Efter at have kigget på koden nedenfor, vil du måske grave dybere i specifikke klasser for at lære mere om dem og tilpasse dem til dine behov.
Bemærk:Din forbindelsesstreng og variabelnavne i dit tilfælde kan variere fra det, der er vist i denne liste:
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
Tilpasset fra kilde:http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm