让ACCESS删除记录后自动排序字段不断号

阿杰

1. 
   
2. 
   
3. .版本 2
   
4. .支持库 ADODB
   
5. .子程序 重新编号, 逻辑型, , 重新给ACCESS自动编号，成功返回真
   
6. .参数 数据库连接, 数据库连接对象
   
7. .参数 表名, 文本型
   
8. .参数 字段名, 文本型, , 如：ID
   
9. .参数 索引名, 文本型, , 如：ID
   
10. .局部变量 sql_重新编号, 文本型
    
11. .局部变量 记录数_局, 整数型, , , 操作返回的记录数
    
12. .局部变量 是否成功_局, 逻辑型
    
13. .局部变量 最后错误, 文本型
    
14. .如果真 (取反 (打开ACCESS数据库 (数据库连接, , , 取运行目录 () ＋ “\” ＋ #数据库文件名, , “”, )))
    
15.     信息框 (“打开ACCESS数据库失败！”, #错误图标 ＋ #程序等待, )
    
16.     返回 (假)
    
17. .如果真结束
    
18. 数据库连接.开始事务 ()
    
19. sql_重新编号 ＝ “DROP INDEX ” ＋ 字段名 ＋ “ ON [” ＋ 表名 ＋ “]”
    
20. ' //删除自动编号字段索引
    
21. 输出调试文本 (sql_重新编号)
    
22. 数据库连接.执行 (sql_重新编号, 记录数_局, )
    
23. 最后错误 ＝ 数据库连接.最后错误
    
24. .如果真 (最后错误 ≠ “”)
    
25.     信息框 (最后错误, #程序等待 ＋ #错误图标, )
    
26.     .如果真 (取反 (数据库连接.回滚事务 ()))
    
27.         信息框 (“回滚事务失败！”, #程序等待 ＋ #错误图标, )
    
28.         返回 (假)
    
29.     .如果真结束
    
30.     返回 (假)
    
31. .如果真结束
    
32. 
    
33. sql_重新编号 ＝ “ALTER TABLE [” ＋ 表名 ＋ “] DROP COLUMN ” ＋ 字段名
    
34. ' //删除自动编号字段
    
35. 输出调试文本 (sql_重新编号)
    
36. 数据库连接.执行 (sql_重新编号, 记录数_局, )
    
37. 最后错误 ＝ 数据库连接.最后错误
    
38. .如果真 (最后错误 ≠ “”)
    
39.     信息框 (最后错误, #程序等待 ＋ #错误图标, )
    
40.     .如果真 (取反 (数据库连接.回滚事务 ()))
    
41.         信息框 (“回滚事务失败！”, #程序等待 ＋ #错误图标, )
    
42.         返回 (假)
    
43.     .如果真结束
    
44.     返回 (假)
    
45. .如果真结束
    
46. sql_重新编号 ＝ “ALTER TABLE [” ＋ 表名 ＋ “] ADD ” ＋ 字段名 ＋ “ AUTOINCREMENT”
    
47. ' //建立自动编号字段
    
48. 输出调试文本 (sql_重新编号)
    
49. 数据库连接.执行 (sql_重新编号, 记录数_局, )
    
50. 最后错误 ＝ 数据库连接.最后错误
    
51. .如果真 (最后错误 ≠ “”)
    
52.     信息框 (最后错误, #程序等待 ＋ #错误图标, )
    
53.     .如果真 (取反 (数据库连接.回滚事务 ()))
    
54.         信息框 (“回滚事务失败！”, #程序等待 ＋ #错误图标, )
    
55.         返回 (假)
    
56.     .如果真结束
    
57.     返回 (假)
    
58. .如果真结束
    
59. 
    
60. sql_重新编号 ＝ “CREATE INDEX ” ＋ 索引名 ＋ “ ON [” ＋ 表名 ＋ “] (” ＋ 字段名 ＋ “)”
    
61. ' //建立自动编号字段索引
    
62. 输出调试文本 (sql_重新编号)
    
63. 数据库连接.执行 (sql_重新编号, 记录数_局, )
    
64. 最后错误 ＝ 数据库连接.最后错误
    
65. .如果真 (最后错误 ≠ “”)
    
66.     信息框 (最后错误, #程序等待 ＋ #错误图标, )
    
67.     .如果真 (取反 (数据库连接.回滚事务 ()))
    
68.         信息框 (“回滚事务失败！”, #程序等待 ＋ #错误图标, )
    
69.         返回 (假)
    
70.     .如果真结束
    
71.     返回 (假)
    
72. .如果真结束
    
73. .如果真 (取反 (数据库连接.保存事务 ()))
    
74.     信息框 (“保存事务失败！”, #程序等待 ＋ #错误图标, )
    
75.     返回 (假)
    
76. .如果真结束
    
77. 返回 (真)
    
78. 
    

复制代码