|
5精币
本帖最后由 weilinlin88 于 2011-11-8 15:30 编辑
如图
我是用超级列表框导出EXCEL
为什么我在 局部_语句 增加[本息] 和 超级列表框1.取标题 (局部_计次 - 1, 4) ,运行 保存数据 提示 导出数据库失败
我把[本息]和超级列表框1.取标题 (局部_计次 - 1, 4) 取消掉 就会导出成功
这是怎么回事呀 请高手帮帮忙!!!!!!
注意:红框框上就是
----------------代码-----------
- .版本 2
- .支持库 iext
- .局部变量 局部_计次, 整数型
- .局部变量 局部_语句, 文本型
- 通用对话框_导入导出.类型 = 1
- .如果真 (通用对话框_导入导出.打开 () = 假)
- 返回 ()
- .如果真结束
- 写到文件 (通用对话框_导入导出.文件名, #xls模板)
- .如果真 (外部数据库_导入导出.打开 (“ODBC;DBQ=” + 通用对话框_导入导出.文件名 + “;DefaultDir=” + 取文本左边 (通用对话框_导入导出.文件名, 倒找文本 (通用对话框_导入导出.文件名, “\”, , 假)) + “;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;”, , ) = 假)
- 信息框 (“数据库连接失败!”, #错误图标, )
- 返回 ()
- .如果真结束
- 进度条_导出.最大位置 = 超级列表框1.取表项数 ()
- .计次循环首 (超级列表框1.取表项数 (), 局部_计次)
- 局部_语句 = “insert into [Sheet1$] ([年份],[本金],[天数],[年数],[本息]) values ('” + 超级列表框1.取标题 (局部_计次 - 1, 0) + “','” + 超级列表框1.取标题 (局部_计次 - 1, 1) + “','” + 超级列表框1.取标题 (局部_计次 - 1, 2) + “','” + 超级列表框1.取标题 (局部_计次 - 1, 3) + “','” + 超级列表框1.取标题 (局部_计次 - 1, 4) + “')”
- .如果真 (外部数据库_导入导出.执行 (局部_语句, ) = 假)
- 信息框 (“导出数据失败!”, #错误图标, )
- 返回 ()
- .如果真结束
- 进度条_导出.位置 = 进度条_导出.位置 + 1
- .计次循环尾 ()
- 外部数据库_导入导出.关闭 ()
- 信息框 (“恭喜您,导出成功!”, #信息图标, )
- 进度条_导出.位置 = 0
复制代码
|
|