|
60精币
ACCSS数据库问题,就是选中超级列表框的选中项,按修改按钮,所有的一样的标题读修改了,请问各位大神,如何只修改选中那一项.
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 判断 (外部数据库1. 打开MDB数据库 (取运行目录 () + “\通讯录数据库”, , , , ) = 真)_启动窗口.标题 = “通讯录数据库 连接成功”_启动窗口.标题 = “通讯录数据库 连接失败”读取程序 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 记录集句柄 | 整数型 | | | 索引 | 整数型 | | |
记录集句柄 = 外部数据库1. 查询 (“select * from 通讯录 ”)超级列表框1. 全部删除 ()判断循环首 (外部数据库1. 尾记录后 (记录集句柄 ) = 假)索引 = 超级列表框1. 插入表项 (, 外部数据库1. 读 (记录集句柄, “姓名”), , , , )超级列表框1. 置标题 (索引, 1, 外部数据库1. 读 (记录集句柄, “号码”)) 超级列表框1. 置标题 (索引, 2, 外部数据库1. 读 (记录集句柄, “地址”)) 外部数据库1. 到后一记录 (记录集句柄 )判断循环尾 ()外部数据库1. 关闭记录集 ()外部数据库1. 执行 (“insert into 通讯录 (姓名,号码,地址) values (” + 编辑框1.内容 + “,” + 编辑框2.内容 + “,” + 编辑框3.内容 + “)”, , )读取程序 ()SQL = “delete from 通讯录 where 姓名='” + 超级列表框1. 取标题 (超级列表框1.现行选中项, 0 ) + “'”调试输出 (SQL )外部数据库1. 执行 (SQL, )读取程序 ()SQL = “update 通讯录 set 姓名='” + 编辑框1.内容 + “' where 姓名='” + 超级列表框1. 取标题 (超级列表框1.现行选中项, 0 ) + “'”调试输出 (SQL )外部数据库1. 执行 (SQL, )读取程序 ()
|
|