【开发者开源大赛】入门级ADO类v1.33H,通杀win平台数据库!【放血推荐】

天机科技

う网淅乄 发表于 2016-12-16 17:53
看了源码 保存到excel代码有问题吧  传进去的参数没有看到利用的 替换都是替换空

修正了参数丢失的BUG，替换下就行了。


.版本 2
.子程序 保存到Excel, 逻辑型, 公开, 将指定库的数据表导出保存到xls文件且需要office支持,成功返回真,感谢易友【う网淅乄】反馈的参数空的BUG
.参数 参库索引, 数据库类型
.参数 参Excel路径, 文本型, , .xls为后缀,导出的文件路径,如果存在重名则覆盖
.参数 参数据表名, 文本型, , 导出的数据表名
.局部变量 SQL语句, 文本型
.如果真 (文件是否存在 (参Excel路径))
    删除文件 (参Excel路径)
.如果真结束
SQL语句 ＝ “Select * Into [Excel 8.0;database=%db].%tb From %tb”
SQL语句 ＝ 子文本替换 (SQL语句, “%db”, 参Excel路径, , , 真)
SQL语句 ＝ 子文本替换 (SQL语句, “%tb”, 参数据表名, , 2, 真)
打开 (参库索引, SQL语句, 真)  ' 如果返回假,可尝试修改游标位置
关闭 ()
返回 (文件是否存在 (参Excel路径))

う网淅乄

看了源码 保存到excel代码有问题吧  传进去的参数没有看到利用的 替换都是替换空

fengyyun

大神，膜拜下

萧然

这个是这次开源中最好的了！！

咏恒ぃ☆吣

学习吸收~~xia

boxfan111

大神，膜拜下

crystalxp

膜拜~

包子陈

支持这个，楼主大爱

拉面

支持开源~！感谢分享

gowy111

又一大神膜拜~