请看我写的程序代码(请修改为你的数据库) 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
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