mdb数据库无法成功添加商品，帮看下

玩世不恭KISS

11.e (959.73 KB, 下载次数: 3)

2025-3-1 10:24 上传

点击文件名下载附件

玩世不恭KISS

搞错了，sorry，https://wwov.lanzouv.com/iQdhp2p6ssaf

青春已不再

  

主窗口.记录集1.打开 (sql, 1, )
主窗口.记录集1.读文本 (“ID”, 编号)
sql ＝ “SELECT id FROM 库存 WHERE 商品名称='” ＋ 名称input.内容 ＋ “' AND 型号='” ＋ 型号input.内容 ＋ “'”
如果真 (主窗口.数据库连接1.执行SQL (sql, ) ＝ 假)  ' 使用SQL的插入数据语句
信息框 (主窗口.数据库连接1.最后错误, 16, “数据添加失败！”, 主窗口)

主窗口.记录集1.打开 (sql, 1, )
主窗口.记录集1.读文本 (“ID”, 编号)
如果 (编号 ＝ “”)
sql ＝ “INSERT INTO 库存(商品名称,型号,数量,单位,进货价,入库时间,条形码) VALUES ('” ＋ 名称input.内容 ＋ “','” ＋ 型号input.内容 ＋ “','” ＋ 数量input.内容 ＋ “','” ＋ 单位input.内容 ＋ “','” ＋ 进价input.内容 ＋ “','NOW()','” ＋ 条形码input.内容 ＋ “')”
调试输出 (sql)

sql ＝ “update 库存 set 数量='” ＋ 数量input.内容 ＋ “' where id =” ＋ 编号
调试输出 (sql)

调试输出 (sql)
如果真 (主窗口.数据库连接1.执行SQL (sql, ) ＝ 假)  ' 使用SQL的插入数据语句
信息框 (主窗口.数据库连接1.最后错误, 16, “数据添加失败！”, 主窗口)
返回 ()
销毁 ()

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

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> 主窗口.记录集1.打开 (sql, 1, )<br /> 主窗口.记录集1.读文本 (“ID”, 编号)<br /> sql ＝ “SELECT id FROM 库存 WHERE 商品名称='” ＋ 名称input.内容 ＋ “' AND 型号='” ＋ 型号input.内容 ＋ “'”<br /> <br /> .如果真 (主窗口.数据库连接1.执行SQL (sql, ) ＝ 假)  ' 使用SQL的插入数据语句<br /> <br />     信息框 (主窗口.数据库连接1.最后错误, 16, “数据添加失败！”, 主窗口)<br /> <br /> .如果真结束<br /> <br /> 主窗口.记录集1.打开 (sql, 1, )<br /> 主窗口.记录集1.读文本 (“ID”, 编号)<br /> .如果 (编号 ＝ “”)<br /> <br />     sql ＝ “INSERT INTO 库存(商品名称,型号,数量,单位,进货价,入库时间,条形码) VALUES ('” ＋ 名称input.内容 ＋ “','” ＋ 型号input.内容 ＋ “','” ＋ 数量input.内容 ＋ “','” ＋ 单位input.内容 ＋ “','” ＋ 进价input.内容 ＋ “','NOW()','” ＋ 条形码input.内容 ＋ “')”<br />     调试输出 (sql)<br /> <br /> .否则<br />     sql ＝ “update 库存 set 数量='” ＋ 数量input.内容 ＋ “' where id =” ＋ 编号<br />     调试输出 (sql)<br /> .如果结束<br /> <br /> 调试输出 (sql)<br /> .如果真 (主窗口.数据库连接1.执行SQL (sql, ) ＝ 假)  ' 使用SQL的插入数据语句<br /> <br />     信息框 (主窗口.数据库连接1.最后错误, 16, “数据添加失败！”, 主窗口)<br />     返回 ()<br /> .如果真结束<br /> 销毁 ()

把你添加窗口的sql 语句改一下就可以了  ，你的刷新显示功能也需要改 ，现在这个添加语句是开源正常添加的，你只需要把你的刷新列表改一下就可以看到了

青春已不再

你发的源码和你问的不是一个东西？？mdb文件也没有 ？？

灵海雪缘

发错了吧，这个是超级列表框操作啊