数据库相关问题：
1.在Button中，此代码执行正确，能保存DataGridView的数据到access文件中。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AccessString As String = "SELECT * FROM 数字元件 "
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessAdapter As New OleDbDataAdapter(AccessString, AccessConn)
Dim AccessCmdBulid As New OleDb.OleDbCommandBuilder(AccessAdapter)
Try
AccessAdapter.Update(DataGridView1.DataSource)
Catch ex As Exception
Console.WriteLine(ex.Message)
MsgBox("数据保存失败! " & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical)
Finally
AccessAdapter.Dispose()
AccessCmdBulid.Dispose()
End Try
MsgBox("数据保存成功! ")
LookTable() '刷新显示
End Sub
2.在MenuStrip中，同样的代码，就是不能保存DataGridView的数据到access文件中。
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Dim AccessString As String = "SELECT * FROM 数字元件 "
Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)
AccessConn.Open()
Dim AccessAdapter As New OleDbDataAdapter(AccessString, AccessConn)
Dim AccessCmdBulid As New OleDb.OleDbCommandBuilder(AccessAdapter)
Try
AccessAdapter.Update(DataGridView1.DataSource)
Catch ex As Exception
Console.WriteLine(ex.Message)
MsgBox("数据保存失败! " & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical)
Finally
AccessAdapter.Dispose()
AccessCmdBulid.Dispose()
End Try
MsgBox("数据保存成功! ")
LookTable() '刷新显示
End Sub