sql语句
为主.
.版本 2
.
程序集
窗口程序集_启动窗口
.
子程序
_按钮1_被单击
.
查询
句柄
, 整数型
.如果真 (
取反
(外部数据库1.打开MDB数据库 (取运行目录 () + “\db.mdb”, , , , 真)))
信息框 (“数据库打开失败.”, 0, , )
返回 ()
.如果真结束
' ----------------------------------------判断是否连接到数据库.
查询句柄 = 外部数据库1.查询 (“select * from 表名”)
' 查询句柄,用于读数据,可以添加条件筛选.比如:
' 查询句柄 = 外部数据库1.查询 (“select * from 表名 where name =” + 编辑框2.内容)
' -----------------------------------------开始读取数据
.判断循环首 (取反 (外部数据库1.尾记录后 (查询句柄)))
列表框
1.加入项目 (外部数据库1.读 (查询句柄, 2), )
' 这里的2表示字段位置,也可以直接写名字,比如字段2为name
' 外部数据库1.读 (查询句柄, “name”)
外部数据库1.到后一记录 (查询句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 (查询句柄)
' 记录集使用完毕后及时关闭.
' ----------------------------------------- 写数据很简单,直接执行sql语句.
.判断开始 (外部数据库1.执行 (“insert into 表名 (对应表内字段名称1,对应表内字段名称2) values ('内容','内容')”, ))
信息框 (“成功”, 0, , )
.默认
信息框 (“失败”, 0, , )
.判断结束
' 内容这里注意前后的单引号必须有.示例:
' 外部数据库1.执行 (“insert into 表名 (ID,name) values ('” + 编辑框1.内容 + “','” + 编辑框2.内容 + “')”, )
' ------------------------------------------修改命令 update
.判断开始 (外部数据库1.执行 (“update 表名 Set ID='” + 编辑框1.内容 + “',name='” + 编辑框2.内容, ))
信息框 (“成功”, 0, , )
.默认
信息框 (“失败”, 0, , )
.判断结束
' ---------------------------------------删除命令 delete
.判断开始 (外部数据库1.执行 (“delete from 表名 where 条件”, ))
' 示例:
' 外部数据库1.执行 (“delete from 表名 where name=” + 编辑框2.内容, )
信息框 (“成功”, 0, , )
.默认
信息框 (“失败”, 0, , )
.判断结束
.子程序 __启动窗口_将被销毁
外部数据库1.关闭 ()
【1】.连接Access数据库代码!.版本2
.支持库
eDB
.如果
(数据库连接.连接Access
(MDB数据库,
“”)
=
真)
记录集.置连接
(数据库连接)
排序条件
=
“字段,表名,条件”
.如果
(记录集.打开并排序
(MDB数据表,
排序条件)
=
真)
.否则
销毁
()
【2】.填充树形框字段到父项目代码!.版本
2
.支持库
eDB
.支持库
iext.局部变量
分类变量,
文本型
.局部变量
树项目总数,
整数型
.局部变量
树循环循环,
整数型
.局部变量
临时项目文本,
文本型
.局部变量
是否存在重复,
整数型
记录集.到首记录
()
.判断循环首
(记录集.尾记录后
=
假)
记录集.读文本
(“字段”,
分类变量)
树项目总数
=
树型框.取项目数
()
.如果
(树项目总数
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.否则
.计次循环首
(树项目总数,
树循环循环)
临时项目文本
=
树型框.取项目文本
(树循环循环
-
1)
.如果
(临时项目文本
=
分类变量)
是否存在重复
=
1
跳出循环
()
.否则
是否存在重复
=
0
.如果结束
树循环循环
=
树循环循环
+
1
.计次循环尾
()
.如果真
(是否存在重复
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.如果真结束
.如果结束
记录集.到下一条
()
.判断循环尾
()
【3】.填充表名到树形框子项目并过滤树形框存在的重复项!.版本
2
.支持库
iext
.支持库
eDB.局部变量
原项目变量,
整数型
.局部变量
原项目循环,
整数型
.局部变量
项目数组,
文本型,
,
"0"
.局部变量
原项目文本,
文本型
.局部变量
新项目变量,
整数型
.局部变量
新项目循环,
整数型
.局部变量
新项目文本,
文本型
.局部变量
新项目标题,
文本型
.局部变量
过滤语句,
文本型
.局部变量
文本数组,
文本型,
,
"0"
.局部变量
文本变量,
文本型
.局部变量
数组成员,
整数型
.局部变量
数组循环,
整数型
.局部变量
次数数量,
整数型
.局部变量
项目变量,
整数型
.局部变量
循环变量,
整数型
.局部变量
次数循环,
整数型
原项目变量
=
树型框.取项目数
()
原项目循环
=
1
.计次循环首
(原项目变量,
原项目循环)
加入成员
(项目数组,
树型框.取项目文本
(原项目循环
-
1))
.计次循环尾
()
数组成员
=
取数组成员数
(项目数组)原项目文本
=
项目数组
[数组循环]
过滤语句
=
“字段”
+
“=”
+
“'”
+
原项目文本
+
“'”
.如果
(记录集.过滤记录
(过滤语句)
=
真)
次数数量
=
记录集.记录数量
清除数组
(文本数组)
.计次循环首
(次数数量,
次数循环)
记录集.读文本
(“表名称”,
文本变量)
加入成员
(文本数组,
文本变量)
次数循环
=
次数循环
+
1
记录集.到下一条
()
.计次循环尾
()
项目变量
=
树型框.取项目数
()
.计次循环首
(项目变量,
循环变量)
树型框.置项目数值
(循环变量
-
1,
循环变量)
.计次循环尾
().否则
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)