可以使用datagrid的edit,update的模板。
但是数据还要你自己来提交!

解决方案 »

  1.   

    请看我写的程序代码(请修改为你的数据库)
     Dim strcmdtext As String = "select * from student"
        Dim sqlconn As New SqlClient.SqlConnection("data source=xiao;uid=sa;pwd=123;database=test")
        Dim rowsprocessed As Integer
        Dim customerds As New DataSet()
        Dim sqldataadapter As New SqlClient.SqlDataAdapter(strcmdtext, sqlconn)
        Dim sqlcb As New SqlClient.SqlCommandBuilder(sqldataadapter)
        Private Sub code_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            sqldataadapter.Fill(customerds, "student")
            DataGrid1.DataSource = customerds
            DataGrid1.CaptionText = "学生信息显示"
            DataGrid1.DataMember = "student"
        End Sub
    '数据添加
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            'textbox1.text,textbox2.text,textbox3.text,textbox4.text
            Dim addcmd As String = "insert into student values ('11','张曼玉','女','09.12')"
            Dim sqlcmd As New SqlClient.SqlCommand(addcmd, sqlconn)
            sqlcmd.Connection.Open()
            rowsprocessed = sqlcmd.ExecuteNonQuery()
            customerds.Clear()
            sqldataadapter.Fill(customerds, "student")
            DataGrid1.DataSource = customerds
            DataGrid1.CaptionText = "学生信息显示"
            DataGrid1.DataMember = "student"
        End Sub
    'datagrid数据更新
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            sqldataadapter.Update(customerds, "student")
        End Sub