VB.net修改datagridview更新access数据库的问题 50
您之前回答过别人类似的问题,仿照您的答案写了程序,运行过程中,datagridview能够显示数据库中的数据,但是datagridview中的数据修改后,保存时报错,说是...
您之前回答过别人类似的问题,仿照您的答案写了程序,运行过程中,datagridview能够显示数据库中的数据,但是datagridview中的数据修改后,保存时报错,说是有语法错误,麻烦您看一下,帮忙给指点指点。一下是代码: '***************************************** '在DataGridView控件中显示数据库中表的数据 '***************************************** Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.DataGridView1.AllowUserToAddRows = False tb = New DataTable 'ap = New OleDbDataAdapter("select * from electic ", cn) '这里是SQL命令,Cn是数据库连接,修改成你的Conn Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=DILR.mdb" cn = New OleDbConnection(cnstr) Dim sql As String = "select * from 测量结果" ap = New OleDbDataAdapter(sql, cn) ap.Fill(tb) Me.BindingSource1.DataSource = tb Me.BindingNavigator1.BindingSource = Me.BindingSource1 Me.DataGridView1.DataSource = Me.BindingSource1 End Sub '*************************************************** '修改DataGridView控件中数据并同步修改数据库 '*************************************************** ' Dim ds As DataSet Dim tb As DataTable Dim ap As OleDbDataAdapter Private Sub ToolStrip_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStrip_save.Click Save_Data() End Sub Private Function Save_Data() As Boolean '保存数据库的操作 Try Me.DataGridView1.EndEdit() Me.BindingSource1.EndEdit() Dim bd As New OleDbCommandBuilder(ap) ap.UpdateCommand = bd.GetUpdateCommand ap.Update(Me.BindingSource1.DataSource) Return True ' MessageBox.Show("保存成功!!", "消息") Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Button1_Click(sender, e) End SubEnd Class
这是我插入数据的代码,这段代码运行是正确的。 展开
这是我插入数据的代码,这段代码运行是正确的。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |