Imports
System.Data
Imports System.Data.SqlClient
Public Class Form1 Class 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
Imports System.Data.SqlClient
Public Class Form1 Class 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