dataGridView中更新数据到数据库中

来源:互联网 发布:唯一网络 怎么了 编辑:程序博客网 时间:2024/05/23 19:12
Imports System.Data
Imports System.Data.SqlClient

Public 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(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(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


 
原创粉丝点击