update语句根据一个工作簿(2007)内容修改另一个工作簿数据的发现

@。@ · 发表于 2013-9-14 11:38

是不是在同一表格中执行update，而且用到了表格内的数据，imex=2，这样子？

zhaogang1960 · 发表于 2013-9-14 11:56

@。@ 发表于 2013-9-14 11:38
是不是在同一表格中执行update，而且用到了表格内的数据，imex=2，这样子？

如果以另一个工作簿为数据库更新工作表，则仍需要加imex=0
如果更新本工作簿的工作表，则不需要加imex=0

zhaogang1960 · 发表于 2013-9-14 12:00

@。@ 发表于 2013-9-14 11:38
是不是在同一表格中执行update，而且用到了表格内的数据，imex=2，这样子？

给你写了一个分别以Access、另一个工作簿和本工作簿为数据库更新的例子

根据工作表批量更新数据库并向数据库添加不存在的记录(不使用循环)2007.rar (355.36 KB, 下载次数: 95)

详见：
根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)
http://club.excelhome.net/thread-1023579-1-1.html

@。@ · 发表于 2013-9-14 15:56

http://club.excelhome.net/thread-1055754-1-1.html
赵版，能帮我看看我的求助么，发了，每人回答我的这个问题哦。

@。@ · 发表于 2013-9-14 16:03

我看了你的例子，都是用数据库更新数据库，我对用非数据库来更新数据库的数据很敢兴趣，上面是我的例子，不知道能不能实现？

xgy0214dxy · 发表于 2013-11-17 14:06

学习了，谢谢版主

nhygm · 发表于 2013-12-30 18:59

zhaogang1960 发表于 2013-9-14 12:00
给你写了一个分别以Access、另一个工作簿和本工作簿为数据库更新的例子

赵老师：我运行你给的例子，可以运行，但是数据不更新，我把这个程序加到我建的工作薄里，提示“找不到可安装的 ISAM。怎么才能解决呢？

灵活就业人员打印.rar (197.02 KB, 下载次数: 8)
请赵老师帮我看下，我想实现我打印一个人，就在原始数据就后一列加上一个”已打印“的标示。

zhaogang1960 · 发表于 2013-12-30 20:44

nhygm 发表于 2013-12-30 18:59
赵老师：我运行你给的例子，可以运行，但是数据不更新，我把这个程序加到我建的工作薄里，提示“找不到可 ...

Sub 导出打印记录()
Dim cnn As Object, SQL$, SQL1$, sh As Worksheet
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no';Data Source=" & ThisWorkbook.FullName
SQL = "Select * From [原始数据$] Where F3 = '" & Range("G7") & "'"
SQL1 = "update [原始数据$] set F10 ='已打印' where F3 = '" & Range("G7") & "'"
'cnn.Execute ("update [原始数据$] set [原始数据$].f10 = '123456' ")
On Error Resume Next
Set sh = Sheets("打印数据")
If Not sh Is Nothing Then
sh.Cells.Clear
Else
Sheets.Add.Name = "打印数据"
End If
Sheets("打印日志").Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset cnn.Execute(SQL)
Sheets("打印数据").Range("A1").CopyFromRecordset cnn.Execute(SQL)
cnn.Execute (SQL1)
cnn.Close
Set cnn = Nothing
ActiveSheet.PrintOut
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-30 20:46

请测试附件

灵活就业人员打印.rar (205.62 KB, 下载次数: 19)

nhygm · 发表于 2013-12-31 09:43

zhaogang1960 发表于 2013-12-30 20:46
请测试附件

赵老师：我到底哪错了，怎么没看出来啊

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

[讨论] update语句根据一个工作簿(2007)内容修改另一个工作簿数据的发现