Imports System.DataImports System.Data.SqlClient
Public Class Form1Class Form1
Dim ds As DataSet Dim da As SqlDataAdapter Dim cb As SqlCommandBuilder Dim cmd As SqlCommand Dim conn As New SqlConnection("data source=localhost;Database=HAWK;Integrated Security=SSPI;")
Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn.Open() cmd = conn.CreateCommand cmd.CommandText = "Select sID,sName,class,pro from studentInfo" da = New SqlDataAdapter(cmd) ds = New DataSet() da.Fill(ds) DataGridView1.DataSource = ds.Tables(0)
End Sub Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click cmd.CommandText = "Select sID,sName,class,pro from studentInfo" da = New SqlDataAdapter(cmd) cb = New SqlCommandBuilder(da) da.Update(ds) DataGridView1.Update() End Sub
End Class