论坛 › 已解决问题区 › 查oracle表所有值存到excle中 【已解决】

lusheng0028 发表于 2011-7-11 10:19:49

查oracle表所有值存到excle中 【已解决】

本帖最后由 lusheng0028 于 2011-7-12 09:15 编辑

Local $role
$Connection ="DRIVER={MICROSOFT ODBC FOR ORACLE};Server=orcl;User Id=LL;Password=123456"
$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection)
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
$adoRs.ActiveConnection=$adoCon ;绑定连接
$adoRs.open("select * fromdictionary")

kevinch 发表于 2011-7-11 12:21:29

本帖最后由 kevinch 于 2011-7-11 13:27 编辑

$o_Excel=objcreate("excel.application")
$o_Excel.visible=true
with $o_Excel.activesheet
    .range("A1").copyfromrecordset($adoRs)
end with后面这样试下

少了一句，加上

lusheng0028 发表于 2011-7-11 13:19:35

好的，谢谢

lusheng0028 发表于 2011-7-11 13:27:39

回复 2# kevinch


报这个错
    with $o_Excel.activesheet
with $o_Excel^ ERROR

lusheng0028 发表于 2011-7-11 13:46:47

#include <Array.au3>
我是想读取数据库写到一个excle并保存，怎么老不对

#include <Excel.au3>
#include <SQLite.au3>
Local $role
Local $aResult, $iRows, $iColumns, $iRval
$Connection ="DRIVER={MICROSOFT ODBC FOR ORACLE};Server=orcl;User Id=picc;Password=181818"
$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection)
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
$adoRs.ActiveConnection=$adoCon ;绑定连接
$adoRs.open("select * fromdictionary")

$o_Excel=objcreate("excel.application")
$o_Excel.visible=true
With $o_Excel.activesheet

    .range("A1").copyfromrecordset($adoRs)
EndWith
$adoRs.close
$adoCon.close

_ExcelBookSaveAs($o_Excel, "e:\temp1.xls", "xls", 0, 1)

报这个错
E:\oracle.au3 (15) : ==> ?????????????? "With" ??.:
With $o_Excel.activesheet
With $o_Excel^ ERROR

lusheng0028 发表于 2011-7-11 13:47:15

回复 2# kevinch


    不对，还是一样的错，

user3000 发表于 2011-7-11 15:36:20

过来学习!
帮你顶个!

kevinch 发表于 2011-7-11 15:39:33

$o_Excel=objcreate("excel.application")
$o_Excel.visible=true
$o_Workbook=$o_Excel.workbooks.add
with $o_Workbook.activesheet
    .range("A1").copyfromrecordset($adoRs)
end with忘记添加工作簿了，只建立个excel进程当然出错，哈哈

lusheng0028 发表于 2011-7-11 18:31:41

回复 8# kevinch


可以啦。。。谢谢哥哥。。。我也是在学习中

kevinch 发表于 2011-7-11 19:12:52

修改标题，添加【已解决】字样，方便版主分类。

jy010 发表于 2012-3-19 23:20:08

学习下谢谢指导

lark 发表于 2012-6-13 11:15:16

收藏{:face (125):}

查看完整版本: 查oracle表所有值存到excle中 【已解决】