2012-1-14 17:5:48

易语言的记事本文本导入到MDB数据库源码

.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data.mdb”, “”, “”, , )
显示列表 ()

.子程序 显示列表
.局部变量 搜索全部, 整数型
.局部变量 数目, 整数型

超级列表框1.全部删除 ()
搜索全部 ＝ 外部数据库1.查询 (“select * from url ORDER BY id”) ' 按id排列显示列表
外部数据库1.到首记录 (搜索全部)
数目 ＝ 0
.判断循环首 (外部数据库1.尾记录后 (搜索全部) ＝ 假)
处理事件 ()
超级列表框1.插入表项 (, 到文本 (数目 ＋ 1), , , , 外部数据库1.读 (搜索全部, “id”))
超级列表框1.置标题 (数目, 1, 到文本 (外部数据库1.读 (搜索全部, “links”)))
超级列表框1.置标题 (数目, 2, 到文本 (外部数据库1.读 (搜索全部, “task”)))
数目 ＝ 数目 ＋ 1
外部数据库1.到后一记录 (搜索全部)
.判断循环尾 ()
外部数据库1.关闭记录集 (搜索全部)

 

.子程序 _按钮1_被单击
.局部变量 待分割文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 索引, 整数型
.局部变量 sql, 文本型

通用对话框1.类型 ＝ 0
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “*.txt|*.txt”
.如果真 (通用对话框1.打开 ())
待分割文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环首 (取数组成员数 (待分割文本), i)
.如果真 (待分割文本 [i] ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (索引, 1, 待分割文本 [i])
超级列表框1.置标题 (索引, 2, “”)
sql ＝ “insert into url (links,task) values ('” ＋ 到文本 (超级列表框1.取标题 (超级列表框1.取表项数 (), 1)) ＋ “','” ＋ 超级列表框1.取标题 (超级列表框1.取表项数 (), 2) ＋ “')”
外部数据库1.执行 (sql, )
.如果真结束

.计次循环尾 ()
.如果真结束

.子程序 __启动窗口_将被销毁

外部数据库1.关闭 ()
外部数据库1.关闭记录集 ()