Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2568|回复: 11

[已解决](感谢hwc2ycy 老师的帮助,圆满解决!)请帮助修改代码

[复制链接]
发表于 2013-4-12 07:37 | 显示全部楼层 |阅读模式
本帖最后由 zzh49 于 2013-4-12 08:56 编辑

各位老师好!
       想通过修改窗体Text内数据,以达到修改Access数据库对应数据的目的.可附件里的代码实现不了,请各位帮助修改附件里“修改”按钮的代码。
谢谢!
附件: 附件.rar (13.68 KB, 下载次数: 15)
发表于 2013-4-12 07:47 | 显示全部楼层
你把EXCEL文件也传上来吧,窗体导入不了。
这个应该不难的。
回复

使用道具 举报

发表于 2013-4-12 07:50 | 显示全部楼层
你试试先先查找所有的记录到RECORDSET,然后再用UPDATE语句。


回复

使用道具 举报

 楼主| 发表于 2013-4-12 07:56 | 显示全部楼层
hwc2ycy 发表于 2013-4-12 07:47
你把EXCEL文件也传上来吧,窗体导入不了。
这个应该不难的。

感谢老师的关注!
       这个没有EXCEL文件,是用vb6做的,Access数据库。修改记录的代码始终没有搞明白,请老师帮助修改。
谢谢!
回复

使用道具 举报

发表于 2013-4-12 08:24 | 显示全部楼层
LISTVIEW加载不了,我用VBA给你做个吧。
回复

使用道具 举报

 楼主| 发表于 2013-4-12 08:27 | 显示全部楼层
hwc2ycy 发表于 2013-4-12 08:24
LISTVIEW加载不了,我用VBA给你做个吧。

感谢老师的热情帮助!
回复

使用道具 举报

发表于 2013-4-12 08:49 | 显示全部楼层    本楼为最佳答案   
  1. SQL = "update 通讯录 SET 姓名='" & Me.TextBox1.Text & "',手机号码=" & Me.TextBox3.Text & ",办公电话='" & Me.TextBox4.Text & "',所属类别='" & Me.TextBox5.Text & "' where 姓名='" & ary(0) & "' and 手机号码=" & ary(1) & " and 办公电话='" & ary(2) & "' and 所属类别='" & ary(3) & "'"
复制代码

评分

参与人数 1 +3 收起 理由
zzh49 + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2013-4-12 08:50 | 显示全部楼层
手机号码是数字型,不需要在两边加单引号。
回复

使用道具 举报

发表于 2013-4-12 08:51 | 显示全部楼层
ACCESS操作.rar (24.81 KB, 下载次数: 9)
回复

使用道具 举报

发表于 2013-4-12 08:51 | 显示全部楼层
就参照你的代码,没怎么改。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:14 , Processed in 0.908089 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表