vb2005 datagridview更新保存到数据库表

来源:百度知道 编辑:UC知道 时间:2024/06/14 14:17:26
我用一个按钮用来查询一个按钮保存datagridview中修改的内容,能查到,但是就是无法更新到数据库,程序没报错
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LeafOleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LeafFileName & ";" & "Jet OLEDB:Database Password='" & LeafPassWord & "';")
LeafOleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM " & LeafFormName, LeafOleDbConnection)
LeafData = New DataTable
DataGridView1.DataSource = LeafData
Try
LeafData.AcceptChanges()
LeafOleDbDataAdapter.Update(LeafData)
MsgBox("Updated")
Catch ex As Exception
MsgBox("Error")
End Try

End Sub

你在button里面绑定数据源,事件发生后你前面绑定的datagridview控件内的数据完全改变,你可以实施把绑定数据源放在事件外面
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LeafOleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LeafFileName & ";" & "Jet OLEDB:Database Password='" & LeafPassWord & "';")
LeafOleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM " & LeafFormName, LeafOleDbConnection)
LeafData = New DataTable
DataGridView1.DataSource = LeafData
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
LeafData.AcceptChanges()
LeafOleDbDataAdapter.Update(LeafData)
MsgBox("Updated")
Catch ex As Exception
MsgBox("Error")
End