超级列表框保存access可以了，但还有问题

ngrjsc

超级列表框内容一键保存access数据库可以了，也不重复。
问题：但如果超级列表框----编号里，内容改变，在保存就保存不了，也就是以前的内容更新不了。

走一回

应该是按<账号>是否相同来决定是<更新>还是<添加>,因为<编号>是自动生成的,永远不会重复

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
SQL	文本型
许可证	整数型
客户IP	文本型
使用者a	文本型
程序集_计次1	整数型
程序集_计次2	整数型
在线ip	文本型
客户IP1	文本型
客户数据1	文本型
心跳使用者	文本型

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

变量名	类 型	静态	数组	备 注
分割1	文本型		0
子分割1	文本型		0
内容提取1	文本型
n	整数型

如果真 (数据库连接1.连接Access (“abc.mdb”, “”) ＝ 假)
信息框 (数据库连接1.最后错误, 0, “数据库连接失败！”, )
销毁 ()
许可证 ＝ 创建进入许可证 ()
记录集1.置连接 (数据库连接1)
n ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n, 1, “123”)
超级列表框1.置标题 (n, 2, “444”)
超级列表框1.置标题 (n, 3, “真”)
超级列表框1.置标题 (n, 4, “是”)
超级列表框1.置标题 (n, 5, “张强”)
超级列表框1.置标题 (n, 6, “山东”)
n ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n, 1, “aaaAAA”)
超级列表框1.置标题 (n, 2, “4566600”)
超级列表框1.置标题 (n, 3, “假”)
超级列表框1.置标题 (n, 4, “否”)
超级列表框1.置标题 (n, 5, “王二”)
超级列表框1.置标题 (n, 6, “河南”)
n ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n, 1, “bbb”)
超级列表框1.置标题 (n, 2, “456”)
超级列表框1.置标题 (n, 3, “假”)
超级列表框1.置标题 (n, 4, “是”)
超级列表框1.置标题 (n, 5, “丽丽”)
超级列表框1.置标题 (n, 6, “广东”)

子程序名	返回值类型	公开	备 注
_超级按钮_保存_被单击

全部保存access ()

子程序名	返回值类型	公开	备 注
全部保存access

变量名	类 型	静态	数组	备 注
计次	整数型
编号	文本型
账号	文本型
密码	文本型
在线	文本型
是否	文本型
使用者	文本型
备注	文本型
i	整数型
是否刷新	逻辑型
局_是否已经存在	逻辑型
sql	文本型
账号_读	文本型
局_sql	文本型
记录数量	整数型

. ' 如果 (信息框 (“是否保存此条记录”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)
计次循环首 (超级列表框1.取表项数 (), 计次)
编号 ＝ 超级列表框1.取标题 (计次 － 1, 0)
账号 ＝ 超级列表框1.取标题 (计次 － 1, 1)
密码 ＝ 超级列表框1.取标题 (计次 － 1, 2)
在线 ＝ 超级列表框1.取标题 (计次 － 1, 3)
是否 ＝ 超级列表框1.取标题 (计次 － 1, 4)
使用者 ＝ 超级列表框1.取标题 (计次 － 1, 5)
备注 ＝ 超级列表框1.取标题 (计次 － 1, 6)
sql ＝ “select * from name where name='” ＋ 账号 ＋ “'”
如果真 (记录集1.打开 (sql, 1, ) ＝ 真)
记录集1.读文本 (1, 账号_读)
调试输出 (“编号_读”, 账号_读)
如果 (账号_读 ≠ “”)
局_是否已经存在 ＝ 真

局_是否已经存在 ＝ 假


如果 (局_是否已经存在 ＝ 真)
sql ＝ “update name set name='” ＋ 账号 ＋ “',pass='” ＋ 密码 ＋ “',ide='” ＋ 在线 ＋ “',shifou='” ＋ 是否 ＋ “',varname='” ＋ 使用者 ＋ “',beizhu='” ＋ 备注 ＋ “' where name='” ＋ 账号 ＋ “'”
数据库连接1.执行SQL (sql, )
调试输出 (sql)
' 插入数据记录,你要再自行添加编辑框,并且这个添加的的记录的编号是从原有的编号上+1得到
sql ＝ “insert into name(name,pass,ide,shifou,varname,beizhu) values('” ＋ 账号 ＋ “','” ＋ 密码 ＋ “','” ＋ 在线 ＋ “','” ＋ 是否 ＋ “','” ＋ 使用者 ＋ “','” ＋ 备注 ＋ “')”
数据库连接1.执行SQL (sql, )
调试输出 (sql)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

读取数据 ()

子程序名	返回值类型	公开	备 注
读取数据

变量名	类 型	静态	数组	备 注
name	文本型
pass	文本型
ide	文本型
varname	文本型
索引	整数型
beizhu	文本型
编号	文本型
shifou	文本型

记录集1.置连接 (数据库连接1)
超级列表框1.全部删除 ()
记录集1.打开 (“select * from name”, 1, )
计次循环首 (记录集1.记录数量, )
记录集1.读文本 (“编号”, 编号)
记录集1.读文本 (“name”, name)
记录集1.读文本 (“pass”, pass)
记录集1.读文本 (“ide”, ide)
记录集1.读文本 (“shifou”, shifou)
记录集1.读文本 (“varname”, varname)
记录集1.读文本 (“beizhu”, beizhu)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 编号)
超级列表框1.置标题 (索引, 1, name)
超级列表框1.置标题 (索引, 2, pass)
超级列表框1.置标题 (索引, 3, ide)
超级列表框1.置标题 (索引, 4, shifou)
超级列表框1.置标题 (索引, 5, varname)
超级列表框1.置标题 (索引, 6, beizhu)
记录集1.到下一条 ()
计次循环尾 ()
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

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

' n ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.查找表项 (“123”, , , 1), 2, “139”)
' 超级列表框1.置标题 (n, 2, “456”)
' 超级列表框1.置标题 (n, 3, “真”)
' 超级列表框1.置标题 (n, 4, “是”)
' 超级列表框1.置标题 (n, 5, “张强”)
' 超级列表框1.置标题 (n, 6, “山东”)

i支持库列表	支持库注释
eDB	数据库操作支持库
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 SQL, 文本型<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 客户IP, 文本型<br /> .程序集变量 使用者a, 文本型<br /> .程序集变量 程序集_计次1, 整数型<br /> .程序集变量 程序集_计次2, 整数型<br /> .程序集变量 在线ip, 文本型<br /> .程序集变量 客户IP1, 文本型<br /> .程序集变量 客户数据1, 文本型<br /> .程序集变量 心跳使用者, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 子分割1, 文本型, , "0"<br /> .局部变量 内容提取1, 文本型<br /> .局部变量 n, 整数型<br /> <br /> <br /> .如果真 (数据库连接1.连接Access (“abc.mdb”, “”) ＝ 假)<br />     信息框 (数据库连接1.最后错误, 0, “数据库连接失败！”, )<br />     销毁 ()<br /> .如果真结束<br /> 许可证 ＝ 创建进入许可证 ()<br /> <br /> 记录集1.置连接 (数据库连接1)<br /> <br /> <br /> <br /> <br /> <br /> n ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (n, 1, “123”)<br /> 超级列表框1.置标题 (n, 2, “444”)<br /> 超级列表框1.置标题 (n, 3, “真”)<br /> 超级列表框1.置标题 (n, 4, “是”)<br /> 超级列表框1.置标题 (n, 5, “张强”)<br /> 超级列表框1.置标题 (n, 6, “山东”)<br /> <br /> n ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (n, 1, “aaaAAA”)<br /> 超级列表框1.置标题 (n, 2, “4566600”)<br /> 超级列表框1.置标题 (n, 3, “假”)<br /> 超级列表框1.置标题 (n, 4, “否”)<br /> 超级列表框1.置标题 (n, 5, “王二”)<br /> 超级列表框1.置标题 (n, 6, “河南”)<br /> <br /> n ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (n, 1, “bbb”)<br /> 超级列表框1.置标题 (n, 2, “456”)<br /> 超级列表框1.置标题 (n, 3, “假”)<br /> 超级列表框1.置标题 (n, 4, “是”)<br /> 超级列表框1.置标题 (n, 5, “丽丽”)<br /> 超级列表框1.置标题 (n, 6, “广东”)<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_保存_被单击<br /> <br /> 全部保存access ()<br /> <br /> .子程序 全部保存access<br /> .局部变量 计次, 整数型<br /> .局部变量 编号, 文本型<br /> .局部变量 账号, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 在线, 文本型<br /> .局部变量 是否, 文本型<br /> .局部变量 使用者, 文本型<br /> .局部变量 备注, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 是否刷新, 逻辑型<br /> .局部变量 局_是否已经存在, 逻辑型<br /> .局部变量 sql, 文本型<br /> .局部变量 账号_读, 文本型<br /> .局部变量 局_sql, 文本型<br /> .局部变量 记录数量, 整数型<br /> <br /> <br /> .' 如果 (信息框 (“是否保存此条记录”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)<br />     .计次循环首 (超级列表框1.取表项数 (), 计次)<br />         编号 ＝ 超级列表框1.取标题 (计次 － 1, 0)<br />         账号 ＝ 超级列表框1.取标题 (计次 － 1, 1)<br />         密码 ＝ 超级列表框1.取标题 (计次 － 1, 2)<br />         在线 ＝ 超级列表框1.取标题 (计次 － 1, 3)<br />         是否 ＝ 超级列表框1.取标题 (计次 － 1, 4)<br />         使用者 ＝ 超级列表框1.取标题 (计次 － 1, 5)<br />         备注 ＝ 超级列表框1.取标题 (计次 － 1, 6)<br /> <br /> <br />         sql ＝ “select * from name where name='” ＋ 账号 ＋ “'”<br /> <br />         .如果真 (记录集1.打开 (sql, 1, ) ＝ 真)<br />             记录集1.读文本 (1, 账号_读)<br />             调试输出 (“编号_读”, 账号_读)<br />             .如果 (账号_读 ≠ “”)<br />                 局_是否已经存在 ＝ 真<br /> <br />             .否则<br />                 局_是否已经存在 ＝ 假<br /> <br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         .如果 (局_是否已经存在 ＝ 真)<br />             sql ＝ “update name set name='” ＋ 账号 ＋ “',pass='” ＋ 密码 ＋ “',ide='” ＋ 在线 ＋ “',shifou='” ＋ 是否 ＋ “',varname='” ＋ 使用者 ＋ “',beizhu='” ＋ 备注 ＋ “' where name='” ＋ 账号 ＋ “'”<br />             数据库连接1.执行SQL (sql, )<br />             调试输出 (sql)<br />             ' 插入数据记录,你要再自行添加编辑框,并且这个添加的的记录的编号是从原有的编号上+1得到<br />         .否则<br />             sql ＝ “insert into name(name,pass,ide,shifou,varname,beizhu) values('” ＋ 账号 ＋ “','” ＋ 密码 ＋ “','” ＋ 在线 ＋ “','” ＋ 是否 ＋ “','” ＋ 使用者 ＋ “','” ＋ 备注 ＋ “')”<br />             数据库连接1.执行SQL (sql, )<br />             调试输出 (sql)<br />         .如果结束<br /> <br /> <br /> <br />     .计次循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 读取数据 ()<br /> <br /> <br /> .子程序 读取数据<br /> .局部变量 name, 文本型<br /> .局部变量 pass, 文本型<br /> .局部变量 ide, 文本型<br /> .局部变量 varname, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 beizhu, 文本型<br /> .局部变量 编号, 文本型<br /> .局部变量 shifou, 文本型<br /> <br /> 记录集1.置连接 (数据库连接1)<br /> 超级列表框1.全部删除 ()<br /> 记录集1.打开 (“select * from name”, 1, )<br /> .计次循环首 (记录集1.记录数量, )<br />     记录集1.读文本 (“编号”, 编号)<br />     记录集1.读文本 (“name”, name)<br />     记录集1.读文本 (“pass”, pass)<br />     记录集1.读文本 (“ide”, ide)<br />     记录集1.读文本 (“shifou”, shifou)<br />     记录集1.读文本 (“varname”, varname)<br />     记录集1.读文本 (“beizhu”, beizhu)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 编号)<br />     超级列表框1.置标题 (索引, 1, name)<br />     超级列表框1.置标题 (索引, 2, pass)<br />     超级列表框1.置标题 (索引, 3, ide)<br />     超级列表框1.置标题 (索引, 4, shifou)<br />     超级列表框1.置标题 (索引, 5, varname)<br />     超级列表框1.置标题 (索引, 6, beizhu)<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> <br /> 记录集1.关闭 ()<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 n, 整数型<br /> <br /> <br /> ' n ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (超级列表框1.查找表项 (“123”, , , 1), 2, “139”)<br /> <br /> ' 超级列表框1.置标题 (n, 2, “456”)<br /> ' 超级列表框1.置标题 (n, 3, “真”)<br /> ' 超级列表框1.置标题 (n, 4, “是”)<br /> ' 超级列表框1.置标题 (n, 5, “张强”)<br /> ' 超级列表框1.置标题 (n, 6, “山东”)

走一回

怎么就不能更新了呢?你的列表框里的数据要修改成与原来不一样的才行,否则更新成原来的值,就是相当于不更新...你也可以把数据库里的字段值改成不一样的值,关闭这个表后,再运行程序看看能不能更新.估计还是基础知识没学好.

ngrjsc

走一回 发表于 2019-1-27 23:48
怎么就不能更新了呢?你的列表框里的数据要修改成与原来不一样的才行,否则更新成原来的值,就是相当于不更新. ...

是修改了，在保存，还是以前的数值。

zyx521147

自己项目用的 你应该是忘了添加以后更新

ngrjsc

ngrjsc 发表于 2019-1-27 23:55
是修改了，在保存，还是以前的数值。

程序运行，点击修改，，在保存，数据库还是原来的值，不变。

ngrjsc

走一回 发表于 2019-1-27 23:48
怎么就不能更新了呢?你的列表框里的数据要修改成与原来不一样的才行,否则更新成原来的值,就是相当于不更新. ...

看了么，老师，你试试，程序运行，点击读取数据----点击修改--点击一键保存-----您看看数据库里的数值改变没有，我这是没有改变

走一回

ngrjsc 发表于 2019-1-27 23:59
程序运行，点击修改，，在保存，数据库还是原来的值，不变。

你好像没有执行数据库的sql语句吧,所以数据库里还是旧的数据.

补充内容 (2019-1-28 01:57):
我的语句应该是能更新你的数据的,你又去年一些代码了.

补充内容 (2019-1-28 02:08):
知道了,你的不应该是编号是否相同,而应该是<账号>是否相同

ngrjsc

走一回 发表于 2019-1-28 01:57
你好像没有执行数据库的sql语句吧,所以数据库里还是旧的数据.

补充内容 (2019-1-28 01:57):

我照着你写的，复制过去的。检查了一样，又检查一遍

ngrjsc

这是你后期给我的：https://bbs.125.la/forum.php?mod=viewthread&tid=14307969&extra=