Chủ đề là rộng. Dưới đây là một mẫu sử dụng DataTable và DataAdapter. DataTable được sử dụng để giữ dữ liệu từ cơ sở dữ liệu và theo dõi các thay đổi do người dùng thực hiện đối với các hàng cụ thể khi được liên kết với lưới. Bộ điều hợp tạo sql cần thiết để thực hiện các lệnh cập nhật và xóa với điều kiện SQL SELECT hợp lệ. Có nhiều cách khác nhau để đạt được những gì bạn muốn, tuy nhiên, đây là một ví dụ về những gì bạn có thể làm. Sau khi xem mã bên dưới, bạn có thể muốn tìm hiểu sâu hơn về các lớp cụ thể để tìm hiểu thêm về chúng và điều chỉnh chúng cho phù hợp với nhu cầu của bạn.
Lưu ý: Chuỗi kết nối của bạn và các tên biến trong trường hợp của bạn có thể khác với những gì được hiển thị trong danh sách này:
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
Phỏng theo nguồn: http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm
