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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？
51/1返回列表
查看: 2628  |  回复: 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-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的回帖
查看全部 8 个回答

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的回帖
查看全部 8 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] OpenAI又攻克数学难题了，离AI做有机合成还有多远？ +8 wangyl_123 2026-10-10 12/600 2026-10-13 20:40 by Merryya
[硕博家园] 极限拉扯，如何抉择 +9 Isak0320 2026-10-12 13/650 2026-10-13 11:57 by Isak0320
[教师之家] 课题组会帮你通过考核么？ +4 好运来～9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷！
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬，路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些？ +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
关闭
请填处理意见
关闭