| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2250 人关注过本帖, 1 人收藏
标题:VB6.0更新ACCESS数据库中某一条信息内容的代码怎么写?
只看楼主 加入收藏
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
结帖率:100%
收藏(1)
 问题点数:0 回复次数:3 
VB6.0更新ACCESS数据库中某一条信息内容的代码怎么写?
图片附件: 游客没有浏览图片的权限,请 登录注册


求助,VB6.0更新ACCESS数据库中某一条信息内容的代码。谢谢。
搜索更多相关主题的帖子: 代码 更新 内容 信息 数据库 
2020-05-06 17:08
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
各位大神,各位版主,请大显身手,各显神通。
2020-05-06 17:09
wenan1952
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-7-19
收藏
得分:0 
更新某一行的数据其实质就是修改某一行的数据。
修改和删除某一行数据基本上都是以ID为依据进行操作的,因为只有ID没有重复值。
你的窗体上添加一个text2控件,用来填写某一行的ID。
如果这个窗体是用来登记“坏点”的,那么还要添加一个“更新”的命令按钮。

Private Sub Command1_Click() '单击更新按钮
  On Error Resume Next
Dim sc As Integer
 sc = MsgBox("确实修改这条记录吗?", vbOKCancel, "提示信息")
 If sc = 1 Then   '运行时如果用户点击的是MsgBox提示框的"确定"按钮,返回值是1
 Dim conn As New ADODB.Connection
 Dim RS As New ADODB.Recordset
 Dim Str1 As String'下一行中的  Access_db.mdb 换成你登记坏点的表名称
    Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access_db.mdb;Jet OLEDB:Database Password="
 conn.Open Str1
 strsql = "select * from 坏点 where ID =" & Val(Text2.Text) & ""
 RS.Open strsql, conn, 3, 3
 If RS!ID = Val(Text2.Text) Then    '由于系统数据库使用的是自动编号作为主键    '因此以ID编号字段的内容作为判断的依据    'rs!中的!是变量类型定义符号
    RS!设备编号 = Combo1.Text
    RS!抽屉台车 = Combo2.Text
    RS!维修内容 = Text1.Text
    RS!坏点位置 = Combo3.Text
    RS!确认状态 = Combo4.Text
    RS!更新时间 = now  '需要在你登记“坏点”的access表中添加一个字段,以记录维修和更新的时间,用来指标考核
 RS.Update
 RS.Close
 conn.Close
     MsgBox "修改记录成功!"
 Else
    MsgBox "不存在此记录!"
 Exit Sub
 End If
 End If
  End Sub
使用代码时请与你表中的字段校对一下。
仅供参考
2020-07-19 22:20
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
回复楼主 wangyiaihu:
你的图中的各记录均有一个 ID 记录,这个应该是数据表的主键,是唯一的,不会重复
因此,更新记录的SQL 语句应该是:
strSQL = "Select * From 数据表名 Where ID=Val(MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) "
MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)就是图中第一列的数据,点击那一列,就是那一列的 ID
最后使用 Update 方法更新数据即可。

请不要选我!!!
2020-07-20 13:35
快速回复:VB6.0更新ACCESS数据库中某一条信息内容的代码怎么写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035624 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved