EXcel到易语言EDB数据库源码

EXCEL到edb将EXCEL内容导入到edb数据库中。

@易语言数据库学习

.版本 2

.子程序 _开始_被单击
.局部变量 字段信息, 字段信息, , "0"
.局部变量 记录集句柄, 整数型
.局部变量 临时字段信息, 字段信息
.局部变量 i, 整数型
.局部变量 单元, 文本型

开始.禁止 ＝ 真
进度条1.可视 ＝ 真
.计次循环首 (选择列表框1.取项目数 (), i)
    .如果真 (选择列表框1.是否被选中 (i － 1))
        临时字段信息.名称 ＝ 选择列表框1.取项目文本 (i － 1)
        临时字段信息.类型 ＝ #文本型
        临时字段信息.最大文本长度 ＝ 20
        加入成员 (字段信息, 临时字段信息)
    .如果真结束

.计次循环尾 ()
.如果 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 编辑框1.内容 ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”, ))
    记录集句柄 ＝ 外部数据库1.查询 (“select * from [sheet1$]”)  ' 此处指定表名
    .如果 (记录集句柄 ≠ 0)
        外部数据库1.到首记录 (记录集句柄)
        .判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
            加记录 ()
            .计次循环首 (选择列表框1.取项目数 (), i)
                .如果真 (选择列表框1.是否被选中 (i － 1))
                    单元 ＝ 到文本 (外部数据库1.读 (记录集句柄, i))
                    写字段 (选择列表框1.取项目文本 (i － 1), , 单元)
                .如果真结束

            .计次循环尾 ()
            外部数据库1.到后一记录 (记录集句柄)
        .判断循环尾 ()
    .否则

    .如果结束

.否则
    信息框 (“连接失败”, 0, )
.如果结束
关闭 (“edb”)
外部数据库1.关闭记录集 (记录集句柄)
外部数据库1.关闭 ()
开始.禁止 ＝ 假
分组框3.标题 ＝ “正在导入数据，请稍等……”
进度条1.显示方式 ＝ 0
进度条1.位置 ＝ 10
.计次循环首 (10, )
    进度条1.位置 ＝ 进度条1.位置 ＋ 10
    延时 (100)
.计次循环尾 ()
信息框 (“导入成功！”, #确认取消钮, )
销毁 ()