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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？
81/1返回列表
查看: 2329  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 26博士申请 +3 1042136743 2026-03-17 3/150 2026-03-17 23:30 by 轻松不少随
[考研] 085601材料工程专硕求调剂 +5 慕寒mio 2026-03-16 5/250 2026-03-17 21:31 by hmn_wj
[考研] 301求调剂 +4 A_JiXing 2026-03-16 4/200 2026-03-17 17:32 by ruiyingmiao
[考研] 085600材料与化工求调剂 +5 绪幸与子 2026-03-17 5/250 2026-03-17 16:40 by laoshidan
[考研] 材料与化工专硕调剂 +5 heming3743 2026-03-16 5/250 2026-03-17 14:03 by 勇敢太监王公公
[考研] 0854可跨调剂，一作一项核心论文五项专利，省、国级证书40+数一英一287 +3 小李0854 2026-03-16 3/150 2026-03-17 13:40 by 热情沙漠
[考研] 211本，11408一志愿中科院277分，曾在中科院自动化所实习 +6 Losir 2026-03-12 7/350 2026-03-17 12:09 by danranxie
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 302求调剂 +4 小贾同学123 2026-03-15 8/400 2026-03-17 10:33 by 小贾同学123
[考研] 材料专硕274一志愿陕西师范大学求调剂 +5 薛云鹏 2026-03-13 5/250 2026-03-17 10:15 by Sammy2
[考研] 283求调剂 +3 听风就是雨； 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] 318求调剂 +3 Yanyali 2026-03-15 3/150 2026-03-16 16:41 by houyaoxu
[考研] 材料与化工一志愿南昌大学327求调剂推荐 +7 Ncdx123456 2026-03-13 8/400 2026-03-16 12:15 by karry wen
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考博] 东华理工大学化材专业26届硕士博士申请 +6 zlingli 2026-03-13 6/300 2026-03-15 20:00 by ryzcf
[考研] 265求调剂 +4 威化饼07 2026-03-12 4/200 2026-03-14 17:23 by userper
[基金申请] 现在如何回避去年的某一个专家，不知道名字 +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[考研] 337一志愿华南理工0805材料求调剂 +7 mysdl 2026-03-11 9/450 2026-03-13 22:43 by JourneyLucky
[考研] 土木第一志愿276求调剂，科研和技能十分丰富，求新兴方向的导师收留 +3 土木小天才 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[考研] 333求调剂 +3 152697 2026-03-12 4/200 2026-03-13 07:08 by Iveryant
信息提示
关闭
请填处理意见
关闭