根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)

沧海一声笑NEW2 · 发表于 2018-1-15 23:18

赵老师的作品，一定要好好学习，学习

yu_mzh · 发表于 2018-4-20 15:51

好好学习这一块。

︶ㄣ寒冰 · 发表于 2018-4-20 19:22

最近在研究赵老师的这段代码，由于实际的需要对代码进行了修改，只更新和插入，不删除！代码如下：

Sub 保存()
Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="vadsys" '撤消工作表保护
Dim Target As String
Dim i As Integer
Call Init
'生成更新字符串，如：a.姓名=b.姓名,a.性别=b.性别,……
With Sheets(Split(act, "$")(0))
arrFields = Range("A1:X1") '工作表中的字段名写入数组
For i = 2 To UBound(arrFields, 2) '生成更新字符串
StrTemp = StrTemp & ",a." & arrFields(1, i) & "=b." & arrFields(1, i)
Next
End With
For i = 1 To Sheets.Count
If Sheets(i).Name = Split(act, "$")(0) Then
s = "[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[" & act & [a1].CurrentRegion.Address(0, 0) & "]"
'生成更新SQL语句(请注意Office2007后需要加imex=0参数)
sql = "update " & DataTable & " a," & s & " b set " & Mid(StrTemp, 2) & " where a.生产订单号=b.生产订单号 and a.产品型号=b.产品型号"
cnn.Execute sql '不判断，更新可能存在的“SN”
'将工作表信息追加到数据库表
sql = "insert into " & DataTable & " select * from " & s & " where not exists"
sql = sql & "(select * from " & DataTable & " a," & s & " b where a.生产订单号=b.生产订单号 and a.产品型号=b.产品型号)"
cnn.Execute (sql)
'关闭连接释放内存
cnn.Close
Set cnn = Nothing
MsgBox "保存出货记录成功并上传数据库！", , "保存成功"
End If
Next
'ActiveSheet.Protect Password:="vadsys"
ActiveWorkbook.RemovePersonalInformation = False
Application.ScreenUpdating = True
End Sub

复制代码

yu_mzh · 发表于 2018-4-21 11:44

赵老师您好，真是学习了太多。我想实现以下功能：表A(access）表原记录中有表B（excel）表中不存在的若干条记录。我想将这些记录的“注销时间”字段中添加日期。该如何编写？

lrh788 · 发表于 2018-4-21 13:01

载学习中！

djs5212720 · 发表于 2018-5-16 09:26

赵老师你好！我遇到一些导入问题，劳烦你帮忙看下
http://club.excelhome.net/thread-1413989-1-1.html

gemzw · 发表于 2018-8-28 18:36

赵老师牛，谢谢！

XXC · 发表于 2019-2-17 14:46

谢谢赵版分享！下载学习了。

XXC · 发表于 2019-2-23 02:44

学习赵老师的作品

源远鸢 · 发表于 2019-9-22 22:34

正好要用到，先mark再学习，谢谢楼主

		自动登录	找回密码
密码			免费注册

[原创] 根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)