双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

请问如何一次性执行多条SQL语句

2008-06-05 05:00:45 716 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

pehacker01 墨衍会员 · AI 创作全网分发关注 + 加入社区

RTT（RT-Thread）串口设备（RTT保姆级教程）本章主要介绍串口设备在RT-Thread操作系统中应用层如何使用。关于串口设备的使用，我们只需要在应用层找到串口设备，然后去初始化，初始化完成以后就可以读写串口设备了。操作的方法在应用层，驱动是不需要我们去完成的，驱动已经在操作系统中提供了。阅读详情

在access数据库中，我有很多数据要替换，用嵌套REPLACE ：
update 表名 set 字段名=Replace(Replace(Replace(Replace(Replace(字段名, 'a', '1'), 'b', '2'), 'C', '3'), 'D', '4'), 'E', '5')
但好象只能嵌套25层，如果我有1000个这样的数据要替换的话，就要执行类似的SQL语句40条，手工一条条的执行很麻烦。
请问有没有办法一次性执行完这样的40条语句呢？如果可以用宏搞掂的话，希望能给出完整的宏代码，感谢。。。

...全文

YOLOv8损失函数升级：从CIoU到Wise-IoU v3的实战调优与避坑指南本文详细介绍了如何将YOLOv8的损失函数从CIoU升级到Wise-IoU v3，以提升目标检测性能，特别是在小目标检测和样本不均衡场景下的表现。通过实战调优步骤和避坑指南，帮助开发者有效应用Wise-IoU v3的动态聚焦机制和单调性控制，显著提升模型精度和训练稳定性。阅读详情

pehacker01

Access 7,731 成员 28,797 内容

+ 关注 + 加入社区

切换为时间正序

pehacker01 2008-06-14

打赏
举报

建立的对照表结构如下:
库名:words.mdb
表名:words1
字段1:keywords 字段2:replace
数值: a 1
数值: b 2
数值: c 3
数值: ... ...

要替换的数据库的表的字段为:data.mdb-->data1(表名)-->Resource(字段名)
这样的VBA代码:

-------------------------------------------
Sub ADOConnect()
Dim cnn As ADODB.Connection 定义连接
Dim myre As ADODB.Recordset 定义记录
Set cnn = New ADODB.Connection
Set myre = New ADODB.Recordset
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\words.mdb;Persist Security Info=False" 连接数据库
cnn.Open 打开数据库
myre.CursorLocation = adUseClient
myre.Open "words1", cnn, adOpenDynamic, adLockOptimistic, adCmdTable 打开数据库中表名为words1的表
Do While Not myre.EOF()
CurrentDb.Execute "update data1 set Resource=Replace(Resource,'" & a & "'" & ",'" & b & "')"
myre.MoveNext
Loop

End Sub
-------------------------------------------
运行后无出错提示,但没有达到替换的效果,请问代码错在哪里,应该如何修改呢?

ccssddnnhelp 2008-06-13

打赏
举报

==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.

reply via CSDN viewer

ccssddnnhelp 2008-06-13

打赏
举报

你的
'a', '1'
'b', '2'
'C', '3'
'D', '4'
'E', '5'

放在哪里了？　如果很多，可以放在数据库的一张表中。
然后直接用ＶＢＡ来实现。

ＶＢＡ程序很简单，用一个ＡＤＯ打开刚才的对照表，逐一记录生成update语句执行即可。

关键的方法。 ADO, recordset,
do while not rs.eof
conn.execute "update tbl set fld=replace('"&rs.fields(0).value&"','"&rs.fields(1).value&"')"
rs.movenext
loop

具体的代码就帮你写了。可以直接参考帮助.

==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.

reply via CSDN viewer

pehacker01 2008-06-13

打赏
举报

师傅们,我对这个问题还是没解决.
上几天是用:update 表名 set 字段名=Replace(Replace(Replace(Replace(Replace(字段名, 'a', '1'), 'b', '2'), 'C', '3'), 'D', '4'), 'E', '5')
这个笨方法替换了1500多个数值,(在ACCESS SQL窗口手工执行了50,60次.头昏眼花啊:(

这两天又看了VBA的用法,语句什么的,还是找不到门路.不会建这样的数组.我的基础太差了:(,老师们可否给出完整的代码,让菜鸟的我,只要相应的修改一下a值,b值这些的,就可以直接运行的呢?感谢啊...

想到如果以后要替换1万多数值,甚至更多的话,头都大了;(

pehacker01 2008-06-05

打赏
举报

[Quote=引用 1 楼 wwwwb 的回复:]
如是在ACCESS中，可以用数组存放被替换的值与替换值，
重复运行UPDATE语句。
[/Quote]

是ACCESS数据库,未接触过数组,看不明白.可否举个实例来说明一下呢?

wwwwb 2008-06-05

打赏
举报

OR
将被替换的值与替换值存入临时表，rr(bdh,dh)
set ff=currentdb.openrecordset("rr")
do while not ff.eof()
currentdb.execute "update tt set f1=Replace(字段名,'" & bdh & "'" & ",'" & dh & "')"
ff.movenext
loop

wwwwb 2008-06-05

打赏
举报

如是在ACCESS中，可以用数组存放被替换的值与替换值，
重复运行UPDATE语句。

FCU 2008-06-05

打赏
举报

健议用数组：

var
tem: Tstring;

begin
tem := TString.create(self);
tem.add();.....

然后进行遍例就可以了

ccssddnnhelp 2008-06-05

打赏
举报

直接在VBA中通过currentproject.connection.execute "update ..."
每个a', '1'
'b', '2'
。。。
单独UPDATE就可以了。.

==== 思想重于技巧 ====

.
贴子分数<20：对自已的问题不予重视。
贴子大量未结：对别人的回答不予尊重。
.

reply via CSDN viewer

wwwwb 2008-06-05

打赏
举报

a(1)='a'
b(1)='b'
currentdb.execute "update tt set f1=Replace(字段名,'" & a(1) & "'" & ",'" & b(1) & "')"

wwwwb 2008-06-05

打赏
举报

思路与放到临时表中替换是一样的。

✦双11狂欢大促✦

请问如何一次性执行多条SQL语句

相关推荐

双11狂欢大促