mdb数据库跟超级超级列表框的2种应用办法

以前仿照别人的程序写过超级列表框跟mdb数据库的应用，今天用到的时候又忘了，所以打算做下总结，以便加强印象和下次忘记时查阅。

 

第一种：外部数据库 

1.首先当然要先连接数据库啦  

 

.如果 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\客户数据.mdb”, , , , ))
    调试输出 (“连接成功”)
.否则
    调试输出 (“连接失败”)

2.查询：
记录集句柄 ＝ 外部数据库1.查询 (“select * from 用户 where 昵称='快乐不打烊' ”)
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
    索引＝超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 外部数据库1.读 (记录集句柄, “用户名”))
    超级列表框1.置标题 (索引, 1, 外部数据库1.读 (记录集句柄, “密码”))
    超级列表框1.置标题 (索引, 2, 外部数据库1.读 (记录集句柄, “昵称”))
    超级列表框1.置标题 (索引, 3, 到文本 (外部数据库1.读 (记录集句柄, “权限”)))
    外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 ()

要注意的地方：这里外部数据库查询后得到的是一个记录集的句柄，要通过外部数据库1.读 (记录集句柄, “字段”)来读取  ，这里读取完就附值给了超级列表框

 

3.添加

.如果 (外部数据库1.执行 (“insert into 用户 (用户名,密码,昵称,权限) values('aaa1','bbbb','ccc',1)”, ))
    调试输出 (“执行成功”)
.否则
    调试输出 (“执行失败”)

 

4.删除

.如果 (外部数据库1.执行 (“delete from 用户 where 用户名='aaa'”, ))
    调试输出 (“执行成功”)
.否则
    调试输出 (“执行失败”)

 

5.修改

.如果 (外部数据库1.执行 (“update 用户 set 昵称='121212'  where 用户名 = '1212'”, ))
    调试输出 (“执行成功”)
.否则
    调试输出 (“执行失败”)

6.刷新超级列表框

要用到 超级列表框1.全部删除 ()   先把里面的内容都删掉，不然会加到原有内容下面

 

 

 

第二种：数据库连接  +   记录集

 1.查询

记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from 用户”, 1)

.如果 (记录集1.是否已打开)
    超级列表框1.全部删除 ()
    记录集1.到首记录 ()
    .判断循环首 (记录集1.尾记录后 ＝ 假)

        记录集1.读文本 (“用户名”, 用户名)
        记录集1.读文本 (“密码”, 密码)
        记录集1.读文本 (“昵称”, 昵称)
        记录集1.读整数 (“权限”, 权限)

        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 用户名)
        超级列表框1.置标题 (索引, 1, 密码)
        超级列表框1.置标题 (索引, 2, 昵称)
        超级列表框1.置标题 (索引, 3, 到文本 (权限))
        记录集1.到下一条 ()

    .判断循环尾 ()

.否则

 

 2.添加

.如果 (数据库连接1.执行SQL (“insert into 用户 (用户名,密码,昵称,权限) values('aaa1','bbbb','ccc',1)”))
    调试输出 (“添加成功”)
.否则
    调试输出 (“添加失败”)

3.修改

.如果 (数据库连接1.执行SQL (“update 用户 set 昵称='哈哈哈哈'  where 用户名 = '1212'”))
    调试输出 (“修改成功”)
.否则
    调试输出 (“修改失败”)

4.删除

.如果 (数据库连接1.执行SQL (“delete from 用户 where 用户名='aaa'”))
    调试输出 (“修改成功”)
.否则
    调试输出 (“修改失败”)

最后写点基本SQL语句

查询   select * from 表 where 字段=''
删除   delete from 表 where 字段=''
添加   insert into 表(字段1,字段2,字段3) values('','', '')
更新   update 表 set 要更新字段=''  where 字段 = ''

 

 

 

2个方法比较：

2个方法其实都差不多，但记录集的方法是第二种多点