SQL语句完善，取日期框日期.今天 为字段，

mamdongdong

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
局部_语句	文本型
局部_记录集	整数型
局部_索引	整数型
局部_临时	文本型
字段	文本型

全局_导入导出 ＝ 外部数据库_导入导出
通用对话框2.类型 ＝ 0
如果真 (通用对话框2.打开 () ＝ 假)
返回 ()
如果真 (全局_导入导出.打开 (“ODBC;DBQ=” ＋ 通用对话框2.文件名 ＋ “;DefaultDir=” ＋ 取文本左边 (通用对话框2.文件名, 倒找文本 (通用对话框2.文件名, “\”, , 假)) ＋ “;Driver={Microsoft Excel Driver (*.xls)};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$]
局部_记录集 ＝ 全局_导入导出.cha询 (局部_语句)
输出调试文本 (局部_记录集)
如果真 (局部_记录集 ＝ 0)
信息框 (“cha询失败!”, #错误图标, )
返回 ()
全局_导入导出.到首记录 (局部_记录集)
判断循环首 (全局_导入导出.尾记录后 (局部_记录集) ＝ 假)
局部_临时 ＝ 到文本 (全局_导入导出.读 (局部_记录集, “账号”))
局部_索引 ＝ 超级列表框1.插入表项 (, 局部_临时, , , , )
超级列表框1.置标题 (局部_索引, 1, 到文本 (全局_导入导出.读 (局部_记录集, “密码”)))
超级列表框1.置标题 (局部_索引, 2, 到文本 (全局_导入导出.读 (局部_记录集, “属性”)))
' 超级列表框1.置标题 (局部_索引, 3, 到文本 (全局_导入导出.读 (局部_记录集, “2023/2/3”)))
全局_导入导出.到后一记录 (局部_记录集)
判断循环尾 ()
全局_导入导出.关闭记录集 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局部_语句, 文本型<br /> .局部变量 局部_记录集, 整数型<br /> .局部变量 局部_索引, 整数型<br /> .局部变量 局部_临时, 文本型<br /> .局部变量 字段, 文本型<br /> <br /> <br /> <br /> <br /> 全局_导入导出 ＝ 外部数据库_导入导出<br /> 通用对话框2.类型 ＝ 0<br /> .如果真 (通用对话框2.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (全局_导入导出.打开 (“ODBC;DBQ=” ＋ 通用对话框2.文件名 ＋ “;DefaultDir=” ＋ 取文本左边 (通用对话框2.文件名, 倒找文本 (通用对话框2.文件名, “\”, , 假)) ＋ “;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)<br />     信息框 (“数据库连接失败！”, #错误图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> <br /> 局部_语句 ＝ “select * from [Sheet1$]<br /> <br /> 局部_记录集 ＝ 全局_导入导出.cha询 (局部_语句)<br /> 输出调试文本 (局部_记录集)<br /> <br /> .如果真 (局部_记录集 ＝ 0)<br />     信息框 (“cha询失败!”, #错误图标, )<br />     返回 ()<br /> <br /> .如果真结束<br /> 全局_导入导出.到首记录 (局部_记录集)<br /> .判断循环首 (全局_导入导出.尾记录后 (局部_记录集) ＝ 假)<br />     局部_临时 ＝ 到文本 (全局_导入导出.读 (局部_记录集, “账号”))<br />     局部_索引 ＝ 超级列表框1.插入表项 (, 局部_临时, , , , )<br />     超级列表框1.置标题 (局部_索引, 1, 到文本 (全局_导入导出.读 (局部_记录集, “密码”)))<br />     超级列表框1.置标题 (局部_索引, 2, 到文本 (全局_导入导出.读 (局部_记录集, “属性”)))<br />     ' 超级列表框1.置标题 (局部_索引, 3, 到文本 (全局_导入导出.读 (局部_记录集, “2023/2/3”)))<br /> <br />     全局_导入导出.到后一记录 (局部_记录集)<br /> <br /> .判断循环尾 ()<br /> 全局_导入导出.关闭记录集 ()

例子11.rar (6.09 KB, 下载次数: 0)

2023-1-30 12:43 上传

点击文件名下载附件



局部_语句 ＝ “select * from [Sheet1$]这里指定日期框.今天 字段内 登录内容到 超级列表框

附件例子，和excel。望大神完善。  PS( 用excel 导入太慢了)

mamdongdong

网站崩溃的时候发帖果然，出现沉贴的情况了