ACCESS里如何保护SQL代码，防止自动删除？

baiqingrui　发表于：2014-07-31 12:52:09 　

我有一张表，姓名、性别和出生日期三个字段，需要查重。如果姓名、性别相同且出生日期相差3岁以内，则认为是重复的，需要筛出来。

表1

id	姓名	性别	出生日期
1	张一	男	2013/1/1
2	张一	男	2014/6/1
3	张一	男	2019/7/8
4	张一	女	2014/8/1
5	李二	男	2013/9/9
6	李二	女	2014/9/10

我用了下面的查询语句：

SELECT a.id, a.姓名, a.性别, a.出生日期
FROM 表1 AS a inner join 表1 AS b on a.姓名=b.姓名 and a.性别=b.性别 and abs(datediff("yyyy",a.出生日期,b.出生日期))<=3
where a.id<>b.id
order by a.id;

但是又发现一个新的问题：因为abs(datediff("yyyy",a.出生日期,b.出生日期))<=3语句是小于等于，不是等于，所以ACCESS没有办法在设计视图中创建关系。但我在sql视图中写好语句后，如果用设计视图打开，会有下面的提示：

确定两次后进入设计视图，如果在设计视图中进行任何修改，则Access会自动删除“abs(datediff("yyyy",a.出生日期,b.出生日期))<=3”这段。怎样才能保护这个SQL语句，防止误删呢？

Top

煮江品茶发表于：2014-07-31 17:37:46

多次一举。约定名称不重复不就完事了，实际重名的人加个区别号。

Top

baiqingrui 发表于：2014-07-31 19:26:47

煮江品茶, 不好意思, 没理解您的意思.

Top

西出阳关无故人发表于：2014-07-31 21:29:55

不知道如何保护，但是你的查询可以用另一种方法实现：

SELECT 表1.id, 表1.姓名, 表1.性别, 表1.出生日期
FROM 表1 INNER JOIN 表1 AS 表1_1 ON (表1.性别 = 表1_1.性别) AND (表1.姓名 = 表1_1.姓名)
WHERE (((Abs([表1].[出生日期]-[表1_1].[出生日期]))<>0 And (Abs([表1].[出生日期]-[表1_1].[出生日期]))<1080))

1080（生日相差的天数）可以调整

Top

西出阳关无故人发表于：2014-07-31 21:35:24

或：

SELECT 表1.id, 表1.姓名, 表1.性别, 表1.出生日期
FROM 表1 INNER JOIN 表1 AS 表1_1 ON (表1.性别 = 表1_1.性别) AND (表1.姓名 = 表1_1.姓名)
WHERE (((Abs(DateDiff("yyyy",[表1].[出生日期],[表1_1].[出生日期])))<=3 And (Abs(DateDiff("yyyy",[表1].[出生日期],[表1_1].[出生日期])))<>0));

Top

baiqingrui 发表于：2014-08-01 10:57:02

谢谢楼上，sql代码被删除的问题还是让我很困扰。

Top

baiqingrui 发表于：2014-08-03 16:11:15

是不是解决不了了....

Top

西出阳关无故人发表于：2014-08-04 09:00:46

我也经常遇到,没有找到解决办法,只好绕道前进!

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

ACCESS里如何保护SQL代码，防止自动删除？