关于VB.NET 使用DataGridView更新ACCESS数据库的问题

supermango 2013-06-04 04:38:49
这是我的代码:


在DataGridView中做更改后,点击按钮运行可以提示成功,但刷新后发现数据库数据没有变化,不知道是什么原因,希望好心人给帮忙看看!
...全文
354 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
开宝马拖西瓜 2013-06-16
  • 打赏
  • 举报
回复
楼主,直接做数据源绑定试一下!!
zsdtylj 2013-06-06
  • 打赏
  • 举报
回复
Public Class chengbenhesuan
    Public SqlServerCon As New SqlClient.SqlConnection
    Private CoedSet As New DataSet
    Private Bind_Coed As New Windows.Forms.BindingSource
    Private adp_Coed As SqlClient.SqlDataAdapter


    Private Sub 绑定数据_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim query As String
        query = "SELECT * FROM zcb"
        adp_Coed = New SqlClient.SqlDataAdapter(query, cn) '执行SQL查询语句.获取相关款号的数据
        CoedSet.Clear() '清空临时数据表
        adp_Coed.Fill(CoedSet, "code") 
        Bind_Coed.DataSource = CoedSet.Tables("code") 
        DataGridView2.DataSource = Bind_Coed '绑定数据表
            End Sub
     Private Sub 保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            DataGridView2.EndEdit() '结束编辑动作
            Bind_Coed.EndEdit() '结束编辑动作
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Dim changedst As New DataSet 
        changedst = CoedSet 
        If Not changedst Is Nothing Then
            Dim com As New SqlClient.SqlCommandBuilder(adp_Coed) 
            Try
                adp_Coed.Update(CoedSet.Tables("code")) 
            Catch err1 As SqlClient.SqlException
                MsgBox(err1.Message)
            End Try
        End If
meiling01 2013-06-04
  • 打赏
  • 举报
回复
关注,楼主多看看其它的示例

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧