应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？
81/1返回列表
查看: 2187  |  回复: 7
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zzahkj

木虫 (著名写手)

龙

[交流] 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？已有2人参与

vb.net的DataGridView如何编辑后保存到数据库中？我现在已经实现数据表在DataGridView中显示了，可随便对一个单元格进行编辑后却无法保存到原来的Access数据表中，求高手指点，给一段代码？谢谢！  给段VB代码也行啊！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
不要迷恋哥，哥只是一个过客！
1楼2011-03-04 20:04:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2): 谢谢应助！ 2011-03-07 21:55:46
ado链接数据库
修改后update就行了,你得用sql语句
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
2楼2011-03-05 01:04:38
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzahkj

木虫 (著名写手)

龙
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:49:40
引用回帖:
Originally posted by libralibra at 2011-03-05 01:04:38:
ado链接数据库
修改后update就行了,你得用sql语句

我是这样编写的
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Adapter As New OleDb.OleDbDataAdapter("Select   *   From   huaxue ", AAADataSet1)
        Dim Bulid As New OleDb.OleDbCommandBuilder(Adapter)
      
        Try
            shujubiaoadapter.Update(DataGridView1.DataSource)
            'Recorder.Update(Dt,   "Db "
            'Dt.AcceptChanges()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            MsgBox("数据保存失败! " & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical)
        Finally
            shujubiaoadapter.Dispose()
            Bulid.Dispose()

        End Try
    End Sub
End Class
然后出现错误 1 重载决策失败，原因是没有可访问的“New”可以用这些参数调用:
    'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': 类型“数据库_实验.AAADataSet1”的值无法转换为“System.Data.OleDb.OleDbConnection”。
    'Public Sub New(selectCommandText As String, selectConnectionString As String)': 类型“数据库_实验.AAADataSet1”的值无法转换为“String”。 F:\复件 复件 数据库-实验oo\画图-实验\Form1.vb 228 13 数据库-实验
这是怎么回事？该如何解决？
赞一下(1人) 回复此楼
不要迷恋哥，哥只是一个过客！
3楼2011-03-05 09:22:47
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+3): 辛苦了！ 2011-03-07 21:56:05
给你一段我过去的vb代码,vb连接access的,用adodb,很方便
代码比较丑陋,凑合看吧,是个自用的通讯录程序
txl是表名,Mobile,QQ,MSN...都是字段名称
CODE:
'将列表框内容逐项加入数据库,创建更新sql字串
sqlString = "update txl set Mobile='" & Trim$(txt(1).Text) & "',QQ='" & _     Trim$(txt(2).Text) & "',MSN='" & Trim$(txt(3).Text) & "',Email='" & Trim$(txt(4).Text) & "',Phone='" _     & Trim$(txt(5).Text) & "',Home='" & Trim$(txt(6).Text) & "',Birthday='" & txt(7).Text & "',Address='" _     & Trim$(txt(8).Text) & "',Postcode='" & Trim$(txt(9).Text) & "',Info='" & Trim$(txt(10).Text) & _     "' where Name='" & Trim$(ListView1.ListItems.Item(SelectIndex).Text) & "'"

'更新记录
Set rs = conn.Execute(sqlString, , adCmdText)

要创建全局变量
CODE:
Dim conn As ADODB.Connection '数据库连接

然后form在load的时候打开链接,可以操作数据库
CODE:
'连接无密码数据库
Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbName & ";" & _
        "Persist Security Info=False"

'打开连接
conn.Open

[ Last edited by libralibra on 2011-3-7 at 20:29 ]
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
4楼2011-03-07 20:24:31
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzahkj

木虫 (著名写手)

龙
引用回帖:
Originally posted by libralibra at 2011-03-07 20:24:31:
给你一段我过去的vb代码,vb连接access的,用adodb,很方便
代码比较丑陋,凑合看吧,是个自用的通讯录程序
txl是表名,Mobile,QQ,MSN...都是字段名称


[code]'将列表框内容逐项加入数据库,创建更新sql字串
sqlS ...

谢谢你的回答，可是我想在DataGridView上直接修改数据然后通过按钮保存到原来的数据库上，我不知道该如何做？我刚接触这个，还很菜！
赞一下 回复此楼
不要迷恋哥，哥只是一个过客！
5楼2011-03-07 23:06:58
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2): 谢谢参与应助！ 2011-03-10 14:15:59
引用回帖:
Originally posted by zzahkj at 2011-03-07 23:06:58:
谢谢你的回答，可是我想在DataGridView上直接修改数据然后通过按钮保存到原来的数据库上，我不知道该如何做？我刚接触这个，还很菜！

你看我保存那段创建sql语句,你根据datagridview创建你的sql后
加入按钮事件调用
CODE:
'将列表框内容逐项加入数据库,创建更新sql字串
sqlString = "update txl set Mobile='" & Trim$(txt(1).Text) & "',QQ='" & _     Trim$(txt(2).Text) & "',MSN='" & Trim$(txt(3).Text) & "',Email='" & Trim$(txt(4).Text) & "',Phone='" _     & Trim$(txt(5).Text) & "',Home='" & Trim$(txt(6).Text) & "',Birthday='" & txt(7).Text & "',Address='" _     & Trim$(txt(8).Text) & "',Postcode='" & Trim$(txt(9).Text) & "',Info='" & Trim$(txt(10).Text) & _     "' where Name='" & Trim$(ListView1.ListItems.Item(SelectIndex).Text) & "'"

'更新记录
Set rs = conn.Execute(sqlString, , adCmdText)
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
6楼2011-03-08 04:50:57
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzahkj

木虫 (著名写手)

龙
Private conn As OleDb.OleDbConnection = Nothing
    Private comm As OleDb.OleDbCommand = Nothing
    Private CB As OleDb.OleDbCommandBuilder
    Private Adapter As OleDb.OleDbDataAdapter

    Public Sub updataTable(ByVal constr As String, ByVal pubtable As DataTable, ByVal selectformstr As String)
        conn = New OleDb.OleDbConnection(constr)
        conn.Open()
        comm = New OleDb.OleDbCommand
        Adapter = New OleDb.OleDbDataAdapter
        comm.Connection = conn
        comm.CommandType = CommandType.Text
        comm.CommandText = selectformstr
        Adapter.SelectCommand = comm
        CB = New OleDb.OleDbCommandBuilder(Adapter)
        CB.QuotePrefix = "["
        CB.QuoteSuffix = "]"
        If CB Is Nothing Then
            CB.DataAdapter = New OleDb.OleDbDataAdapter
            Adapter.DeleteCommand = CB.DataAdapter.DeleteCommand
            Adapter.InsertCommand = CB.DataAdapter.InsertCommand
            Adapter.UpdateCommand = CB.DataAdapter.UpdateCommand
        End If
        Dim temptb As DataTable
        Dim DR As DialogResult
        temptb = pubtable.GetChanges()

        If temptb IsNot Nothing Then
            DR = MsgBox("数据已改变，是否要保存?", MsgBoxStyle.YesNo, "提示"
            If DR = Windows.Forms.DialogResult.Yes Then
                Adapter.Update(pubtable)
                MsgBox("更新成功", MsgBoxStyle.DefaultButton1, "提示"
            Else : Exit Sub
            End If
        Else : Exit Sub
        End If
        conn.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        updataTable("provider=Microsoft.jet.oledb.4.0;Data source= AAA.mdb", AAADataSet1.Tables("huaxue", "应填什么SQL语句"

    End Sub

我是一个菜鸟  红字部分应该填什么啊？谢谢！
赞一下 回复此楼
不要迷恋哥，哥只是一个过客！
7楼2011-05-21 22:36:04
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzahkj

木虫 (著名写手)

龙
引用回帖:
Originally posted by libralibra at 2011-03-08 04:50:57:
你看我保存那段创建sql语句,你根据datagridview创建你的sql后
加入按钮事件调用

[code]'将列表框内容逐项加入数据库,创建更新sql字串
sqlString = "update txl set Mobile='" & Trim$(txt(1 ...

看上面的问题帮我解决一下  谢谢
赞一下 回复此楼
不要迷恋哥，哥只是一个过客！
8楼2011-05-21 22:38:02
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zzahkj 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭