精易论坛

标题: 信息设备管理系统求助 [打印本页]

---

作者: btsd2021    时间: 2025-5-12 11:57
标题: 信息设备管理系统求助
大神帮看看，上传附件中，主窗口中超级列表框取数据库中数据后，录入的语执行不成功。把主窗口中超级列表框取数据代码删除后，录入就正常 了。

设备.7z

2025-5-12 11:53 上传

点击文件名下载附件

519.49 KB, 下载次数: 14

---

作者: linqing4    时间: 2025-5-12 13:26
_启动窗口.数据库连接.关闭 ()
你把数据库连接都关闭了，还怎么加数据啊，要么不要关闭数据库连接，要么每次读写数据的时候重新连接数据库。

---

作者: btsd2021    时间: 2025-5-12 14:55

linqing4 发表于 2025-5-12 13:26
_启动窗口.数据库连接.关闭 ()
你把数据库连接都关闭了，还怎么加数据啊，要么不要关闭数据库连接，要么每 ...

不是数据库关闭的事，因为每次我都是读写重新写连接的。

---

作者: linqing4    时间: 2025-5-12 15:00

btsd2021 发表于 2025-5-12 14:55
不是数据库关闭的事，因为每次我都是读写重新写连接的。

你的例子没有写录入代码，没法判断，补全代码再发出来看下。

---

作者: huayuanderen    时间: 2025-5-12 18:23
初步判断，你删除的那段代码有问题。你一行一行的改（换成另外一个方法，或者变量名称）或者删除，一定有你想要的

---

作者: cunanhai    时间: 2025-5-12 22:41

  

子程序名	返回值类型	公开	备 注
通用_加载数据到组件	逻辑型		根据指定数据库表、字段加载数据到组合框组件
参数名	类 型	参考	可空	数组	备 注
参数_表名	文本型
参数_字段名	文本型
参数_组件	组合框

变量名	类 型	静态	数组	备 注
局部_SQL语句	文本型
局部_临时值	文本型

' 检查数据库连接状态
数据库连接成功 ＝ _启动窗口.数据库连接.连接Access (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\xxsbglxx.mdb;”, “”)
如果真 (数据库连接成功 ＝ 假)
信息框 (“数据库未连接！”, #错误图标, “错误”, )
返回 (假)

' 构造SQL语句
局部_SQL语句 ＝ “SELECT ” ＋ 参数_字段名 ＋ “ FROM ” ＋ 参数_表名
调试输出 (记录集1.置连接 (_启动窗口.数据库连接))
调试输出 (记录集1.打开 (局部_SQL语句, #SQL语句, ))
' 配置记录集
如果真 (记录集1.打开 (局部_SQL语句, #SQL语句, ) ＝ 假)
信息框 (“记录集打开失败！”, #错误图标, “错误”, )
记录集1.关闭 ()
返回 (假)

' 清空目标组件并填充数据
参数_组件.清空 ()
判断循环首 (记录集1.尾记录后 ＝ 假)
记录集1.读文本 (参数_字段名, 局部_临时值)
参数_组件.加入项目 (局部_临时值, )
记录集1.到下一条 ()
判断循环尾 ()
' 清理资源
记录集1.关闭 ()
_启动窗口.数据库连接.关闭 ()
返回 (真)

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 通用_加载数据到组件, 逻辑型, 公开, 根据指定数据库表、字段加载数据到组合框组件<br /> .参数 参数_表名, 文本型<br /> .参数 参数_字段名, 文本型<br /> .参数 参数_组件, 组合框<br /> .局部变量 局部_SQL语句, 文本型<br /> .局部变量 局部_临时值, 文本型<br /> <br /> ' 检查数据库连接状态<br /> 数据库连接成功 ＝ _启动窗口.数据库连接.连接Access (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\xxsbglxx.mdb;”, “”)<br /> .如果真 (数据库连接成功 ＝ 假)<br />     信息框 (“数据库未连接！”, #错误图标, “错误”, )<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 构造SQL语句<br /> 局部_SQL语句 ＝ “SELECT ” ＋ 参数_字段名 ＋ “ FROM ” ＋ 参数_表名<br /> 调试输出 (记录集1.置连接 (_启动窗口.数据库连接))<br /> 调试输出 (记录集1.打开 (局部_SQL语句, #SQL语句, ))<br /> ' 配置记录集<br /> <br /> .如果真 (记录集1.打开 (局部_SQL语句, #SQL语句, ) ＝ 假)<br />     信息框 (“记录集打开失败！”, #错误图标, “错误”, )<br />     记录集1.关闭 ()<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 清空目标组件并填充数据<br /> 参数_组件.清空 ()<br /> .判断循环首 (记录集1.尾记录后 ＝ 假)<br />     记录集1.读文本 (参数_字段名, 局部_临时值)<br />     参数_组件.加入项目 (局部_临时值, )<br />     记录集1.到下一条 ()<br /> .判断循环尾 ()<br /> <br /> ' 清理资源<br /> 记录集1.关闭 ()<br /> _启动窗口.数据库连接.关闭 ()<br /> <br /> 返回 (真)

在这个子程序下重新连接一下,加一行连接
数据库连接成功 ＝ _启动窗口.数据库连接.连接Access (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\xxsbglxx.mdb;”, “”)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4