请教如何在vba里同时运行多个update语句更新access数据库对应表

Private Sub CommandButton1_Click()

Dim mydate As String, mytable As String, sql As String, i As Integer

Dim cnn As ADODBConnection

mydata = ThisWorkbookPath & "\商品信息表mdb"

mytable = "inventory"

Set cnn = New ADODBConnection

With cnn

Provider = "microsoftjetoledb40;Persist Security Info=False;Jet OLEDB:Database Password=123"

Open mydata

End With

For i = 1 To 4

sql = "update inventory set 商品编码='" & Chr(i + 64) & "'+MID(商品编码,3) where 商品编码 like '0" & i & "%'"

cnnExecute sql

Next

MsgBox "存货编码批量替换成功!", vbInformation

cnnClose

Set cnn = Nothing

End Sub

1、首先：创建一个表格，插入数据。

2、查看一下表格插入的所有数据。

3、用update 的命令修改wulianwang2改为wulianwang3看图，这是根据id的位置进行查找的。

4、查看刚刚修改有没有成功，也是用到刚刚的查询语句。

5、其实就是增加了一些修改的条件，刚刚只是修改一个值，现在改为两个值也是可行的，两个值之间都好隔开，其他不变。

6、最后查看修改后的表，就完成了。

如果只需要更新一个字段，MYSQL和ORACLE语法是一样的，在 set 后面跟一个子查询即可。

现在需要同时更新2个字段，最不经过大脑思考的方法就是 “为每个 set 后面都跟一个子查询”，但是假如要 set 十个字段或者更多字段，很显然，这样在性能上是很不合适的方法。

同时更新多个字段在MYSQL和ORACLE中的方法是不一样，MYSQL需要连接表，ORACLE使用 set() 即可。

扩展资料

sql更新语句中update用法：

语法：

UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值

更新某一行中的一个列

为 lastname 是 "Wilson" 的人添加 firstname：

UPDATE Person SET FirstName = 'Fred' WHERE LastName = 'Wilson'

请注意 SQL UPDATE 语句中的 WHERE 子句！

WHERE 子句规定哪条记录或者哪些记录需要更新。如果您省略了 WHERE 子句，所有的记录都将被更新！  

在数据库的 *** 作中，更新数据，是很常见的情况。如下参考：

1创建一个临时表，用于演示sqlserver语法中的更新更新修改方法。

2 创建另一个临时表，以演示如何将数据从一个临时表更新到另一个临时表，如下图。

3在临时表中插入几行测试数据，但不在Total列中插入值。

4从#tblUpdate中查询临时表select 中的测试数据;从#tblTotal中选择。

5使用update更新临时表#tblUpdate中的Total结果，假设Total = num price update #tblUpdate set Total = Num Price。

6 再次查询临时表#tblUpdate的结果，您可以看到之前为NULL的Total列有值。

注意事项：

SQL的核心部分相当于关系代数，但又具有关系代数所没有的许多特点，如聚集、数据库更新等。它是一个综合的、通用的、功能极强的关系数据库语言。

update

英语单词，主要用作为动词、名词，作动词时译为“更新；校正，修正；使现代化”；作名词时译为“更新；现代化”。

词    性：动词、名词

英式读音[ˌʌpˈdeɪt]

美式读音[ˌʌpˈdeɪt]

单词用法

V-T/V-I If you update something, you make it more modern, usually by adding new parts to it or giving new information 更新

N-COUNT An update is a news item containing the latest information about a particular situation 最新消息; 快讯

V-T If you update someone on a situation, you tell them the latest developments in that situation 给…提供最新信息

词组短语

update information 更新信息；修正信息

dynamic update 动态更新；动态升级

last update 最新更新

update now 立即更新

双语例句

He was back in the office, updating the work schedule on the computer

他回到办公室，在计算机上更新了工作日程。

Airlines would prefer to update rather than retrain crews

航空公司宁愿增添新机组人员而不愿对老的机组人员进行再培训。

She had heard the newsflash on a TV channel's news update

她在电视频道的新闻快讯里听到了这条简短报道。

We'll update you on the day's top news stories

我们将向你提供当天的头条新闻。

update

（数据库SQL语法用语）

Update是一个数据库SQL语法用语，用途是更新表中原有数据，单独使用时使用where匹配字段。

外文名Update

性    质：数据库SQL语法用语

用    途：更新表中原有数据

单独使用：使用where匹配字段

update概述

用途：更新表中原有数据

单独使用，使用where匹配字段

set后面，更新字段值，既可以一次一项，也可以一次多项

例如1，

Update table_name Set column_name = new_value Where column_name = some_value

例：

“Person”表中的原始数据:

LastName FirstName Address City

Nilsen Fred Kirkegt 56 Stavanger

Rasmussen Storgt 67

运行下面的SQL将Person表中LastName字段为”Rasmussen”的FirstName更新为”Nina”：

UPDATE Person SET FirstName = 'Nina' WHERE LastName = 'Rasmussen'

更新后”Person”表中的数据为：

LastName FirstName Address City

Nilsen Fred Kirkegt 56 Stavanger

Rasmussen Nina Storgt 67

同样的，用UPDATE语句也可以同时更新多个字段：

例如2，

UPDATE Person SET Address = 'Stien 12', City = 'Stavanger' WHERE LastName = 'Rasmussen'

更新后”Person”表中的数据为：

LastName FirstName Address City

Nilsen Fred Kirkegt 56 Stavanger

Rasmussen Nina Stien 12 Stavanger

update语法

UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值 [1]

1UPDATE table_name2SET column1=value1,column2=value2,3WHERE column(1)=value(1),column(2)=value(2)and column(n)=value(n);

详情请参考百度百科：

update

表名

set

字段名=‘内容’

[where

‘条件’]

注意：[

]中的内容可有可无。

举例：表名=zhxx（账户信息）

，需要修改其中的dlmm（登陆密码），条件是dlmc（登陆名称）=soso

update

zhxx

set

dlmm='123'

where

dlmc='soso'

麻烦采纳，谢谢!

可以用ADO方法

rsCnn = "PROVIDER=MicrosoftJetOLEDB40;Data Source=" & DataPath & ";mode=Read|write"

rsTmpOpen "Select From 时刻段电量 ", rsCnn, adOpenDynamic, adLockBatchOptimistic

With rsTmp

!峰数据 = rsTmp1Fields(strName(k) & "峰")Value

!平数据 = rsTmp1Fields(strName(k) & "平")Value

!谷数据 = rsTmp1Fields(strName(k) & "谷")Value

!总数据 = !峰数据 + !平数据 + !谷数据

UpdateBatch

End With

Set rsTmp = Nothing

以上就是关于请教如何在vba里同时运行多个update语句更新access数据库对应表全部的内容，包括:请教如何在vba里同时运行多个update语句更新access数据库对应表、使用mysql时候不小心多update了数据，想问一下如何才能够返回上一步、sql中的update如何根据不同条件修改多条数据的同一列等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！