sql批量update_数据库中的特定记录数据如何批量修改
sql中update什么意思⼤家好,今⽇我们继续VBA数据库解决⽅案的第30讲:如何批量修改数据库中的特定记记录数据。在上⼀讲中,我们讲了批量编辑数据的⽅案,⽤到的是UPDATE⽅法,今⽇我们仍⽤此⽅法解决删除特定记录。这些记录是由于是特殊的,我们可以结合SQL语句来完成我们的需求。同时我们也可以把这些固定的需求转换为动态的需求,只要略加改正就可以了。
今⽇的实例;下⾯的⼯作表为数据库中员⼯信息表的记录,
我们要把其中部门是"⼀⼚""⼆⼚"的记录修正为"三⼚",如何做到呢?
我们先看代码,代码如下:
Sub mynzUpdateRecords_2()
'第30讲批量修改记录集中的某些特殊记录,从⽽达到快捷迅速
Dim cnADO, rsADO As Object
Dim strPath, strTable, strWhere, strSQL, strMsg As String
Set cnADO = CreateObject("ADODB.Connection")
Set rsADO = CreateObject("ADODB.Recordset")
strPath = ThisWorkbook.Path & "mydata2.accdb"
strTable = "员⼯信息"
cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath
'汇报给⽤户记录数
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
MsgBox "当前记录数为:" & rsADO.RecordCount
'设定要修改的条件为把部门='⼀⼚'或者'⼆⼚' 修改为'三⼚'
strSQL = "UPDATE " & strTable & " SET 部门='三⼚' WHERE 部门='⼀⼚' OR 部门='⼆⼚'"
cnADO.Execute strSQL
MsgBox "数据修改成功。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论