btsd2021 发表于 2024-10-22 11:19
不要关闭主窗口，上传完，再次上传就显示失败

你的数据库逻辑错了。

  

如果 (数据库连接1.连接Access (取当前目录 () ＋ “\Database2.mdb”, “”) ＝ 真)

如果 (数据库连接1.连接Access (取当前目录 () ＋ “\Database2.mdb”, “”) ＝ 真)

子窗口【上传】这里，又进行了一次链接。理论上来说，在整个实例里，数据库链接只需要一次。你每打开一次【上传】，就链接一次，当然会出错。

修改方案：
1，删除【_窗口1_创建完毕】 代码：
如果 (数据库连接1.连接Access (取当前目录 () ＋ “\Database2.mdb”, “”) ＝ 真)

2，【窗口程序集_窗口1】的所有代码替换：
记录集1.置连接 (数据库连接1)   替换为  记录集1.置连接 (_启动窗口.数据库连接1)

3，删除【_上传_被单击】 代码：
数据库连接1.关闭 ()

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
项目名称	文本型
项目总数	整数型
循环次数	整数型

如果 (记录集1.置连接 (_启动窗口.数据库连接1))
窗口1.标题 ＝ “数据库连接成功”
记录集1.打开 (“SELECT * FROM 项目”, #SQL语句, )
项目总数 ＝ 记录集1.记录数量
记录集1.到首记录 ()
' 调试输出 (项目总数)
计次循环首 (项目总数, 循环次数)
记录集1.读文本 (“项目名称”, 项目名称)
' 调试输出 (项目名称)
组合框1.加入项目 (项目名称, )
记录集1.到下一条 ()
计次循环尾 ()
记录集1.关闭 ()

窗口1.标题 ＝ “数据库连接失败”

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 项目名称, 文本型<br /> .局部变量 项目总数, 整数型<br /> .局部变量 循环次数, 整数型<br /> <br /> <br /> <br /> <br /> <br /> .如果 (记录集1.置连接 (_启动窗口.数据库连接1))<br />     窗口1.标题 ＝ “数据库连接成功”<br /> <br />     记录集1.打开 (“SELECT * FROM 项目”, #SQL语句, )<br />     项目总数 ＝ 记录集1.记录数量<br />     记录集1.到首记录 ()<br />     ' 调试输出 (项目总数)<br />     .计次循环首 (项目总数, 循环次数)<br />         记录集1.读文本 (“项目名称”, 项目名称)<br />         ' 调试输出 (项目名称)<br />         组合框1.加入项目 (项目名称, )<br />         记录集1.到下一条 ()<br />     .计次循环尾 ()<br /> <br /> <br />     记录集1.关闭 ()<br /> <br /> <br /> .否则<br />     窗口1.标题 ＝ “数据库连接失败”

伊人独醉 发表于 2024-10-22 11:21
我测试也没问题，具体情况要远程你看看才清楚，QQ3086048754

加你了．半醉

我测试也没问题，具体情况要远程你看看才清楚，QQ3086048754

frankiy 发表于 2024-10-22 10:48
你截个图呢。我多次打开都正常。

不要关闭主窗口，上传完，再次上传就显示失败

雨落无尘 发表于 2024-10-22 10:48
编码的问题， 解决办法：一、把程序放到不含中文路径的地方  二、数据库启动路径转换下编码 编码_gb2312到u ...

已改成这样也不行，如果 (数据库连接1.连接Access (编码_gb2312到utf8 (取当前目录 () ＋ “\Database2.mdb”), “”) ＝ 真)

程序所在路径也没有中文

编码的问题， 解决办法：一、把程序放到不含中文路径的地方  二、数据库启动路径转换下编码 编码_gb2312到utf8(路径)

btsd2021 发表于 2024-10-22 10:45
第二次打开就这样，而且列表框没内容了

图传不上去C:\Users\YNYH\Desktop\data\WXWorkLocal_17295649998468.png

btsd2021 发表于 2024-10-22 10:45
第二次打开就这样，而且列表框没内容了

你截个图呢。我多次打开都正常。

btsd2021 发表于 2024-10-22 10:41
第一次可以．第二次就不行了

第二次打开就这样，而且列表框没内容了