数据连接与记集录如何实现拒绝添加重复数据?

108937101

用"数据连接"与"记集录"这二个控件如何实现,在添加一个新数据时先检查一下数据库中有没有相同的数据,如果有相同的,跳出提示并拒绝添加.如果没有就添加进数据库. ACCESS数据库

图上的是用外部数据库来做的,是可以实现这个功能,但我现在想用"数据连接"与"记集录来实现这个功能.

exit11

回复 7# 108937101


   

1. .版本 2
   
2. .支持库 eDB
   
3. 
   
4. .子程序 _按钮2_被单击
   
5. .局部变量 次数, 文本型
   
6. 
   
7. 记录集1.置连接 (数据库连接1)
   
8. 记录集1.打开 (“select count(*) as 重复 from biao where aa='123'”, #SQL语句) ' 这里的aa是字段名 123是要查找的数据
   
9. ' 在 biao[表名]的aa[字段]中，查找 123 的记录次数，并将查找到是总数写到 重复 里
   
10. .如果真 (记录集1.读文本 (“重复”, 次数)) ' 读出次数
    
11. .判断开始 (次数 ＝ “0”) ' 次数读出的就是重复的次数，等于0就表示没有记录
    
12. 记录集1.添加 ()
    
13. ' 以下为添加记录代码
    
14. ' ........
    
15. .默认
    
16. ' 不等于0就不进行操作
    
17. .判断结束
    
18. 
    
19. .如果真结束
    
20. 
    
21. 记录集1.关闭 ()
    

复制代码

奇迹

呵呵 ， 是我坐的沙发吗？

奇迹

没有人帮你顶啊。 兄弟 。

exit11

1. .版本 2
   
2. .支持库 eDB
   
3. 
   
4. 记录集1.到首记录 ()
   
5. .如果真 (记录集1.查找 (“简称” = 编辑框1.内容, #正向搜索))
   
6. 信息框 (“记录已存在”, 0, )
   

复制代码

108937101

exit11 发表于 2010-10-11 00:08

试了，不行。。

exit11

回复 5# 108937101
拜托下动点手，非得给整出全部源码才可以？


   

1. .版本 2
   
2. .支持库 eDB
   
3. .支持库 spec
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. 
   
7. .如果真 (数据库连接1.连接Access (“D:\Userdata\desktop\Test\test.mdb”, “”))
   
8. 记录集1.打开 (“biao”, #数据表名)
   
9. 记录集1.置连接 (数据库连接1)
   
10. 记录集1.到首记录 ()
    
11. 调试输出 (记录集1.查找 (“bb=” ＋ 编辑框1.内容, #正向搜索))
    
12. .如果真结束
    
13. 
    

复制代码

108937101

我太笨了,搞了好久都没有搞成功这个录入前重复检查的程序.谁能详细一点帮给我说说.或者帮我写一下.在添加一条数据前先检查一下数据库中有没有这条数据.

菜鸟,不要笑哦.