保存到XML 失败的问题

adoue00

UPS记录集.1打开 (“select * from test where id='1'”, #SQL语句, )
sql ＝ 记录集1.保存到XML (取运行目录 () ＋ “\temp\sqlSwap.xml”)UPS记录集1.关闭 ()

第一次保存成功，但第二次再运行代码保存就会失败。
尝试过删除文件也能正常删除成功(测试文件是否被占用，能删除所以没被占用)，再保存还是失败。
用了随机数文件名，每次都会成功，这是啥原理咋解决

laihobglei

即使显示文件未被占用，系统可能在储存的时候是占用的。

试试吧资源释放掉。


UPS记录集.1打开 (“select * from test where id='1'”, #SQL语句, )
sql ＝ 记录集1.保存到XML (取运行目录 () ＋ “\temp\sqlSwap.xml”)
UPS记录集1.关闭 ()
处理事件 ()
延迟 (500)  

adoue00

laihobglei 发表于 2025-7-5 10:30
即使显示文件未被占用，系统可能在储存的时候是占用的。

试试吧资源释放掉。

还是不行

laihobglei

.版本 2
.支持库 eDB

.如果真 (文件是否存在 (取运行目录 () ＋ “\temp\sqlSwap.xml”))
    移动文件 (取运行目录 () ＋ “\temp\sqlSwap.xml”, 取运行目录 () ＋ “\temp\sqlSwap_old.xml”)
.如果真结束
试试使用内存流中转

UPS记录集1.打开 (“select * from test where id='1'”, #SQL语句, )
sql ＝ 记录集1.保存到XML (取运行目录 () ＋ "\temp\sqlSwap.xml")

UPS记录集1.关闭 ()

adoue00

laihobglei 发表于 2025-7-5 10:49
.版本 2
.支持库 eDB

也不行，第二次再保存XML还是会失败

sql ＝ 连接.UPS记录集.保存到XML (取运行目录 () ＋ “\temp\sqlSwap.xml”)
连接.UPS记录集.关闭 ()

.如果真 (文件是否存在 (取运行目录 () ＋ “\temp\sqlSwap.xml”))
    移动文件 (取运行目录 () ＋ “\temp\sqlSwap.xml”, 取运行目录 () ＋ “\temp\sqlSwap_old.xml”)
.如果真结束

调试输出 (sql, “保存持久文件”)

adoue00

laihobglei 发表于 2025-7-5 10:49
.版本 2
.支持库 eDB

换个文件名就会成功，但是这样不安全，而且也会增加不必要的流程

laihobglei

试试解锁下文件。实在不行我也没办法了。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

UPS记录集.1打开 (“select * from test where id='1'”, #SQL语句, )
强制解锁文件 ()
sql ＝ 记录集1.保存到XML (取运行目录 () ＋ “\temp\sqlSwap.xml”)
UPS记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
强制解锁文件

变量名	类 型	静态	数组	备 注
句柄	整数型

句柄 ＝ 打开文件 (取运行目录 () ＋ “\temp\sqlSwap.xml”, #读写, )
如果真 (句柄 ≠ 0)
解除文件锁 (句柄)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> UPS记录集.1打开 (“select * from test where id='1'”, #SQL语句, )<br /> 强制解锁文件 ()<br /> sql ＝ 记录集1.保存到XML (取运行目录 () ＋ “\temp\sqlSwap.xml”)<br /> UPS记录集1.关闭 ()<br /> <br /> <br /> .子程序 强制解锁文件<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ 打开文件 (取运行目录 () ＋ “\temp\sqlSwap.xml”, #读写, )<br /> .如果真 (句柄 ≠ 0)<br />     解除文件锁 (句柄)<br /> .如果真结束

  

DLL命令名	返回值类型	公开	备 注
解除文件锁	逻辑型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
CloseHandle
参数名	类 型	传址	数组	备 注
文件句柄	整数型

.版本 2<br /> <br /> .DLL命令 解除文件锁, 逻辑型, "kernel32.dll", "CloseHandle", 公开<br />     .参数 文件句柄, 整数型

adoue00

保存到XML 失败的时候，用写到文件能把数据写进去。。。。这是记录集组件BUG问题吗？

zhengcp

能删除成功，第二次不能保存？无代码没办法排查，太久没用，不知道只读文件会不会影响写入。看一下文件是否是只读

adoue00

laihobglei 发表于 2025-7-5 11:02
试试解锁下文件。实在不行我也没办法了。

  

[/quote]
还是不行，谢谢大佬，应该是组件BUG的问题。
第1次文件名如果是A，第二次必须是非A，否则就会出错保存XML失败，只能通过下面随机文件名哎：
[e=0].版本 2
sql语句 ＝ 记录集.打开 (“select * from test where id='1'”, #SQL语句, )
记录集.到首记录 ()
' //记录集.保存到XML 有BUG，同一个文件名不能保存多次
置随机数种子 ()
随机数 ＝ 取随机数 (10000, 99999)
循环判断首 ()
xml文件目录 ＝ 取运行目录 () ＋ “\temp\”
xml文件名 ＝ “sqlSwap” ＋ 生成前置时间戳 () ＋ 到文本 (随机数) ＋ “.xml”
保存状态 ＝ 记录集.保存到XML (xml文件目录 ＋ xml文件名)
如果真 (保存状态 ＝ 假)
随机数 ＝ 取随机数 (10000, 99999)

循环判断尾 (保存状态 ＝ 假)
UPS记录集.关闭 ()

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

.版本 2</blockquote></div><br /> 还是不行，谢谢大佬，应该是组件BUG的问题。<br /> 第1次文件名如果是A，第二次必须是非A，否则就会出错保存XML失败，只能通过下面随机文件名哎：<br /> [e=0].版本 2<br /> .支持库 eDB<br /> <br /> sql语句 ＝ 记录集.打开 (“select * from test where id='1'”, #SQL语句, )<br /> 记录集.到首记录 ()<br /> <br /> ' //记录集.保存到XML 有BUG，同一个文件名不能保存多次<br /> 置随机数种子 ()<br /> 随机数 ＝ 取随机数 (10000, 99999)<br /> .循环判断首 ()<br />     xml文件目录 ＝ 取运行目录 () ＋ “\temp\”<br />     xml文件名 ＝ “sqlSwap” ＋ 生成前置时间戳 () ＋ 到文本 (随机数) ＋ “.xml”<br /> <br />     保存状态 ＝ 记录集.保存到XML (xml文件目录 ＋ xml文件名)<br />     .如果真 (保存状态 ＝ 假)<br />         随机数 ＝ 取随机数 (10000, 99999)<br />     .如果真结束<br /> <br /> .循环判断尾 (保存状态 ＝ 假)<br /> UPS记录集.关闭 ()