你的数据库逻辑错了。
子窗口【上传】这里,又进行了一次链接。理论上来说,在整个实例里,数据库链接只需要一次。你每打开一次【上传】,就链接一次,当然会出错。
修改方案:
1,删除【_窗口1_创建完毕】 代码:
如果 (数据库连接1.连接Access (取当前目录 () + “\Database2.mdb”, “”) = 真)
2,【窗口程序集_窗口1】的所有代码替换:
记录集1.置连接 (数据库连接1) 替换为 记录集1.置连接 (_启动窗口.数据库连接1)
3,删除【_上传_被单击】 代码:
数据库连接1.关闭 ()
变量名 | 类 型 | 静态 | 数组 | 备 注 | 项目名称 | 文本型 | | | 项目总数 | 整数型 | | | 循环次数 | 整数型 | | | 如果 (记录集1. 置连接 (_启动窗口.数据库连接1 )) 窗口1.标题 = “数据库连接成功”记录集1. 打开 (“SELECT * FROM 项目”, #SQL语句, )项目总数 = 记录集1.记录数量 记录集1. 到首记录 () 计次循环首 (项目总数, 循环次数 )记录集1. 读文本 (“项目名称”, 项目名称 ) 组合框1. 加入项目 (项目名称, )记录集1. 到下一条 ()计次循环尾 ()记录集1. 关闭 ()窗口1.标题 = “数据库连接失败”
|