.如果真 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 取读写位置 (“E:\傲天推广订单程序\1登陆表”) ＋ “\销售订单表.xlsx;Driver={Microsoft Excel Driver (*.xlsx)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假).如果真结束信息框 (“数据库连接失败！”, #错误图标, , )返回 ()查询语句 ＝ “select * from [Sheet1$]”记录集 ＝ 外部数据库1.查询 (查询语句).如果真 (记录集 ＝ 0)信息框 (“查询失败!”, #错误图标, , )返回 ().如果真结束外部数据库1.到首记录 (记录集)局部_计次 ＝ 1超级列表框1.插入列 (, “序号”, 80, , , )超级列表框1.插入列 (, “日期”, 80, , , )超级列表框1.插入列 (, “订单表”, 80, , , )超级列表框1.插入列 (, “价格”, 80, , , ).判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)局部_临时A ＝ 外部数据库1.读 (记录集, 1)局部_临时B ＝ 外部数据库1.读 (记录集, 2)局部_临时C ＝ 到文本 (外部数据库1.读 (记录集, 3))索引 ＝ 超级列表框1.插入表项 (, , , , , )超级列表框1.置标题 (索引, 0, 到文本 (局部_计次))超级列表框1.置标题 (索引, 1, 局部_临时A)超级列表框1.置标题 (索引, 2, 局部_临时B)超级列表框1.置标题 (索引, 3, 局部_临时C)外部数据库1.到后一记录 (记录集)局部_计次 ＝ 局部_计次 ＋ 1.判断循环尾 ()外部数据库1.关闭记录集 ()
