Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

请把表1与表2不相同的记录筛选出来,放到表3中

博爱 等级: 普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于:2018-07-18 06:36:39   已结帖
楼主

请把表1与表2不相同的记录筛选出来,放到表3中,附件楼主已上传,请帮忙编写代码,谢谢!点击下载此附件

 

access培训  诚聘access开发人员

    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top
chinasa 等级:贵宾★★★★★ 积分:830 金币:120 来自:宁波Access交流中心 发表于2018/7/18 8:36:37 
1楼 得分: 0
不理解

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)119篇,其中获得解决的111篇;
      协助社区成员:协助他人(即回帖)788篇,其中被设为【最佳答案】的203篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
博爱 等级:普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于2018/7/18 13:06:01 
2楼 得分: 0

你好,

表1与表2相比较,

如,表1中第一记录表:28 29 30 31 32,   在表2中没有,就把该记录放到表3中; 

如果在表2中有相同的记录,这条就不要放到表3里.

谢谢!



    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:830 金币:120 来自:宁波Access交流中心 发表于2018/7/18 13:46:38 
3楼 得分: 0

用查找不匹配项查询向导不就可以解决了?

如果需要多个字段比较,那就先建立个查询,把这些字段都用&符号整成一个字段。



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)119篇,其中获得解决的111篇;
      协助社区成员:协助他人(即回帖)788篇,其中被设为【最佳答案】的203篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
博爱 等级:普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于2018/7/18 14:51:40 
4楼 得分: 0

你好,

  因为记录多, 我想要程序代码,

谢谢!



    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:830 金币:120 来自:宁波Access交流中心 发表于2018/7/18 15:15:33 
5楼 得分: 0

干嘛吧简单问题复杂化?

下面代码供参考,没测试过。

 

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

Dim rs3 As New ADODB.Recordset

rs1.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs2.Open "表2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs3.Open "表3", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do Until rs1.EOF

CFJL=0

do until rs2.eof

if rs1!字段1 & rs!字段2=rs2!字段1 & rs2字段1 then

CFJL=-1

END IF

rs2.MoveNext

loop

if cfjl=0 then

rs3.AddNew

rs3![字段1] = rs1![字段1]

rs3![字段2] = rs1![字段2]

rs3.Update
end if

rs1.MoveNext

loop

 



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)119篇,其中获得解决的111篇;
      协助社区成员:协助他人(即回帖)788篇,其中被设为【最佳答案】的203篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
博爱 等级:普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于2018/7/18 21:14:49 
6楼 得分: 0

你好

    请把代码放到ACCESS数据库里,我把它输数据库时不能正常运行.谢谢!



    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:830 金币:120 来自:宁波Access交流中心 发表于2018/7/19 8:19:48 
7楼 得分: 0

AA

 

只是给你一个思路,请根据你自己的需要进行更改。



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)119篇,其中获得解决的111篇;
      协助社区成员:协助他人(即回帖)788篇,其中被设为【最佳答案】的203篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
博爱 等级:普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于2018/7/19 12:45:40 
8楼 得分: 0

chinasa你好

     再麻烦你,表1里有20条记录,表2里有3条记录,表1与表2有3个相同的记录,筛选后表3里应有17条记录,但,你写的代码表3里还有19条记录,请你修改一下.谢谢!点击下载此附件



    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:830 金币:120 来自:宁波Access交流中心 发表于2018/7/19 13:37:13 最佳答案
9楼 得分: 2

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

Dim rs3 As New ADODB.Recordset

rs1.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs2.Open "表2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs3.Open "表3", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do Until rs1.EOF

cfjl = 0

Do Until rs2.EOF

If rs1!字段1 & rs1!字段2 & rs1!字段2 & rs1!字段3 & rs1!字段4 & rs1!字段5 & rs1!字段6 & rs1!字段7 & rs1!字段8 & rs1!字段9 & rs1!字段10 & rs1!字段11 & rs1!字段12 & rs1!字段13 & rs1!字段14 = rs2!字段1 & rs2!字段2 & rs2!字段2 & rs2!字段3 & rs2!字段4 & rs2!字段5 & rs2!字段6 & rs2!字段7 & rs2!字段8 & rs2!字段9 & rs2!字段10 & rs2!字段11 & rs2!字段12 & rs2!字段13 & rs2!字段14 Then

cfjl = -1

End If

rs2.MoveNext

Loop

If cfjl = 0 Then

rs3.AddNew

rs3![字段1] = rs1![字段1]

rs3![字段2] = rs1![字段2]
rs3![字段12] = rs1![字段12]
rs3.Update
End If

rs1.MoveNext
rs2.MoveFirst
Loop

rs1.Close
rs2.Close
rs3.Close



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)119篇,其中获得解决的111篇;
      协助社区成员:协助他人(即回帖)788篇,其中被设为【最佳答案】的203篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
博爱 等级:普通会员 积分:0 金币:0 来自:合肥Access交流中心 发表于2018/7/19 16:34:27 
10楼 得分: 0
谢谢

    博爱
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:10篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。