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

24小时热门版块排行榜    

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

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的回帖
查看全部 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 个回答
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭