怎么批量修改ACCESS数据库中的数据

108937101

多条.zip (12.17 KB, 下载次数: 53)

2016-12-13 13:30 上传

点击文件名下载附件

同时修改多条数据内容

sniyang

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
n1	整数型
n2	整数型
temp1	文本型

数据库连接1.连接Access (取运行目录 () ＋ “\data.mdb”, “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from 表1”, #SQL语句, )
高级表格1.行数 ＝ 记录集1.记录数量 ＋ 1
计次循环首 (记录集1.记录数量, n1)
计次循环首 (3, n2)
记录集1.读文本 (n2 － 1, temp1)
高级表格1.置数据 (n1, n2 － 1, #表格常量 .文本型, temp1)
计次循环尾 ()
记录集1.到下一条 ()
计次循环尾 ()
记录集1.关闭 ()
高级表格1.置数据 (0, 0, #表格常量 .文本型, “ID”)
高级表格1.置数据 (0, 1, #表格常量 .文本型, “机号”)
高级表格1.置数据 (0, 2, #表格常量 .文本型, “品名”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局部_文本	文本型		0
i
局部_SQL语句	文本型

记录集1.置连接 (数据库连接1)
局部_文本 ＝ 分割文本 (编辑框1.内容, “,”, )
' ------------------ 简单更新表方式(逐条更新) --------------------------------
计次循环首 (取数组成员数 (局部_文本), i)
如果真 (记录集1.打开 (“update 表1 set `品名`=” ＋ 编辑框2.内容 ＋ “ where `机号`=” ＋ 局部_文本 [i], 1, ))
记录集1.更新 ()
信息框 (“机号:” ＋ 局部_文本 [i] ＋ “ 不存在!”, #错误图标, , )
计次循环尾 ()
' ------------------ 简单更新表方式(逐条更新) --------------------------------
' ' ------------------ 简单更新表方式(单次更新) --------------------------------
' 局部_SQL语句 ＝ “update 表1 set `品名`=” ＋ 编辑框2.内容 ＋ “ where `机号` in(”
. ' 计次循环首 (取数组成员数 (局部_文本), i)
. ' 如果 (i ＜ 取数组成员数 (局部_文本))
' 局部_SQL语句 ＝ 局部_SQL语句 ＋ 局部_文本 [i] ＋ “,”
' 局部_SQL语句 ＝ 局部_SQL语句 ＋ 局部_文本 [i]

. ' 计次循环尾 ()
' 局部_SQL语句 ＝ 局部_SQL语句 ＋ “)”
. ' 如果真 (记录集1.打开 (局部_SQL语句, 1, ))
' 记录集1.更新 ()
' ' ------------------ 简单更新表方式(单次更新) --------------------------------
记录集1.关闭 ()
' ------------------ 重新显示表格 --------------------------------
高级表格1.清空数据 ()
__启动窗口_创建完毕 ()
' ------------------ 重新显示表格 --------------------------------

i支持库列表	支持库注释
eDB	数据库操作支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n1, 整数型<br /> .局部变量 n2, 整数型<br /> .局部变量 temp1, 文本型<br /> <br /> <br /> 数据库连接1.连接Access (取运行目录 () ＋ “\data.mdb”, “”)<br /> 记录集1.置连接 (数据库连接1)<br /> 记录集1.打开 (“select * from 表1”, #SQL语句, )<br /> 高级表格1.行数 ＝ 记录集1.记录数量 ＋ 1<br /> .计次循环首 (记录集1.记录数量, n1)<br />     .计次循环首 (3, n2)<br />         记录集1.读文本 (n2 － 1, temp1)<br />         高级表格1.置数据 (n1, n2 － 1, #表格常量.文本型, temp1)<br />     .计次循环尾 ()<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> 记录集1.关闭 ()<br /> <br /> 高级表格1.置数据 (0, 0, #表格常量.文本型, “ID”)<br /> 高级表格1.置数据 (0, 1, #表格常量.文本型, “机号”)<br /> 高级表格1.置数据 (0, 2, #表格常量.文本型, “品名”)<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局部_文本, 文本型, , "0"<br /> .局部变量 i<br /> .局部变量 局部_SQL语句, 文本型<br /> <br /> 记录集1.置连接 (数据库连接1)<br /> 局部_文本 ＝ 分割文本 (编辑框1.内容, “,”, )<br /> ' ------------------ 简单更新表方式(逐条更新) --------------------------------<br /> .计次循环首 (取数组成员数 (局部_文本), i)<br />     .如果真 (记录集1.打开 (“update 表1 set `品名`=” ＋ 编辑框2.内容 ＋ “ where `机号`=” ＋ 局部_文本 <i>, 1, ))<br />         记录集1.更新 ()<br />     .如果真结束<br />     信息框 (“机号:” ＋ 局部_文本 <i> ＋ “ 不存在!”, #错误图标, , )<br /> <br /> .计次循环尾 ()<br /> ' ------------------ 简单更新表方式(逐条更新) --------------------------------<br /> <br /> ' ' ------------------ 简单更新表方式(单次更新) --------------------------------<br /> ' 局部_SQL语句 ＝ “update 表1 set `品名`=” ＋ 编辑框2.内容 ＋ “ where `机号` in(”<br /> .' 计次循环首 (取数组成员数 (局部_文本), i)<br />     .' 如果 (i ＜ 取数组成员数 (局部_文本))<br />         ' 局部_SQL语句 ＝ 局部_SQL语句 ＋ 局部_文本 <i> ＋ “,”<br />     .否则<br />         ' 局部_SQL语句 ＝ 局部_SQL语句 ＋ 局部_文本 <i><br />     .如果结束<br /> <br /> .' 计次循环尾 ()<br /> ' 局部_SQL语句 ＝ 局部_SQL语句 ＋ “)”<br /> .' 如果真 (记录集1.打开 (局部_SQL语句, 1, ))<br />     ' 记录集1.更新 ()<br /> .如果真结束<br /> ' ' ------------------ 简单更新表方式(单次更新) --------------------------------<br /> 记录集1.关闭 ()<br /> <br /> ' ------------------ 重新显示表格 --------------------------------<br /> 高级表格1.清空数据 ()<br /> __启动窗口_创建完毕 ()<br /> ' ------------------ 重新显示表格 --------------------------------

不知道是不是你想要的效果,你试试看

aidijy

.版本 2
.支持库 eDB



.子程序 _按钮1_被单击
.局部变量 机号分割, 文本型, , "0"
.局部变量 i, 整数型

机号分割 ＝ 分割文本 (编辑框1.内容, “,”, )
.计次循环首 (取数组成员数 (机号分割), i)

    数据库连接1.执行SQL (“update 表1 set `品名`='” ＋ 编辑框2.内容 ＋ “' where `机号`='” ＋ 机号分割 [i] ＋ “'”, )  ' update 表1 set `品名`='M' where `机号`='101';

.计次循环尾 ()

108937101

sniyang 发表于 2016-12-13 14:20
[e=1].版本 2
.支持库 eDB
.支持库 eGrid

如果真 (记录集1.打开 (“update 表1 set `品名`=” ＋ 编辑框2.内容 ＋ “ where `机号`=” ＋ 局部_文本 , 1, ))
这句是不是有问题?明明输入的机号对的,为何跳出没有此机号?

冯古屋

因为按照你的思路，我就没有用sql命令。但是我感觉好像并不是很经济