Imports System.Data Imports System.Data.SqlClient PublicClass Form1Class Form1 Dim ds As DataSet Dim da As SqlDataAdapter Dim cb As SqlCommandBuilder Dim cmd As SqlCommand Dim conn AsNew SqlConnection("data source=localhost;Database=HAWK;Integrated Security=SSPI;") PrivateSub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.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 PrivateSub 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
Imports System.DataImports System.Data.SqlClientPublic Class Form1Class Form1 Dim ds As DataSet Dim da As SqlDataAdapter Dim cb As SqlCommandBuilder Dim cmd As SqlCommand Dim con