求助Access两个表格特定列的比对以及复制

wing33709 · 发表于 2011-9-14 20:00

附件的Access文件里有两个表格（FebData，DataSample）. 我需要做的是：
1. 在表FebData里的左侧插入两列，取名为 Aaccount_Name 和 Flag
2. 对比两张表中 ”Policy“ 列的内容，如果一致，将DataSample 里对应行的 Account_Name 和 Flag 复制到 FebData 新插入列的对应位置。
3. 删除 DataSample 表中在第二步中找到的行

需要在VBA环境下完成

我之前是在Excel里做这些，但是因为数据量太大，运行时间要半个小时，求教Access的各位高手帮忙。
因为文件大小限制，Access文件里的数据是不完整的

compare.rar (164.29 KB, 下载次数: 28)

zhangjimfu · 发表于 2011-9-15 09:31

1.Alter Table FebData Add Column Aaccount_Name Text(100),Flag Text(50)
2.UPDATE FebData AS a, DataSample AS b SET a.Flag = b.Flag, a.Aaccount_Name = b.[Account_Name] WHERE a.Policy=b.Policy;
3.DELETE * FROM DataSample WHERE Policy in (Select Policy From FebData);

复制代码

查询
宏
VBA
三种方法供参考

compare_zhangjimfu.rar (162.2 KB, 下载次数: 40)

wing33709 · 发表于 2011-9-15 10:13

zhangjimfu 发表于 2011-9-15 09:31
查询
宏
VBA

非常感谢！明天上班后我会测试下，再给出反馈，再次感谢！！！

wing33709 · 发表于 2011-9-15 21:35

zhangjimfu 发表于 2011-9-15 09:31
查询
宏
VBA

VBA下运行正常，之前想了几个办法也没想到用update，真是学习了。看来还是要学习SQL

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

[求助] 求助Access两个表格特定列的比对以及复制