【已解决】怎么用au3对oracle数据库进行远程连接

shuaiw · 发表于 2012-7-24 14:51:36

本帖最后由 shuaiw 于 2012-7-27 16:37 编辑

最近在写的程序中要用到oracle数据库，我本机没有装客户端，想使用au3 对数据库进行查询，找到需要的数据，但是写了语句不能够连接到数据库，请高手帮忙看看能不能远程连接在查询数据。

#include <Array.au3>
#include <Excel.au3> 
#include <SQLite.au3>
Local $role
Local $aResult, $iRows, $iColumns, $iRval
$Connection ="Provider=SQLOLEDB,User ID=dtv;Password=dtv;Data Source=192.168.6.202;Initial Catalog='dtv'"

$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection)
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
$adoRs.ActiveConnection=$adoCon ;绑定连接
$adoRs.open("select * from  BOX")
$o_Excel=objcreate("excel.application")
$o_Excel.visible=true
$o_Workbook=$o_Excel.workbooks.add
with $o_Workbook.activesheet
    .range("A1").copyfromrecordset($adoRs)
 EndWith
$adoRs.close
$adoCon.close
_ExcelBookSaveAs($o_Excel, "e:\temp1.xls", "xls", 0, 1)

h20040606 · 发表于 2012-7-24 15:51:35

oracle 的访问一般来说，是要安装客户端的

auto · 发表于 2012-7-24 20:05:54

au3连接oracle 是安装客户端的。。至少也要装精简客户端。。或基础组件。。
我也在找无客户端的连接方式。找了一下。除OCI编程好像没有。。OCI太难了

shuaiw · 发表于 2012-7-25 10:32:48

恩，我也试了很多种办法，我现在装客户端试试，装客户端花销成本太大了

shuaiw · 发表于 2012-7-25 15:04:57

装了客户端后还是连不上哦，代码还是如上，是不是呀改下什么代码啊。

shuaiw · 发表于 2012-7-25 16:04:27

DTV =
  (DESCRIPTION =
(ADDRESS_LIST =
   (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.6.202)(PORT = 1521))
)
(CONNECT_DATA =
   (SID = dtv)
   (SERVER = DEDICATED)
)
  )
不知道是不是我的连接串除了问题，请高手帮忙看看，用户名和密码都是dtv

xms77 · 发表于 2012-7-25 20:29:36

我曾今也尝试过用au3来连接oracle数据库，但是一直没有成功过，就算装有oracle的客户端。

shuaiw · 发表于 2012-7-26 12:06:07

我连接成功了，是装了数据库，在建立一个obdc，再用建立的obdc获取连接字符串，在写的，附上代码哦

#include <Array.au3>
#include <Excel.au3> 
#include <SQLite.au3>
Local $role
Local $aResult, $iRows, $iColumns, $iRval
$Connection [u]="DRIVER={Oracle in OraClient10g_home1};SERVER=DTV;UID=dtv;PWD=dtv;DBQ=DTV;"$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection)
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
$adoRs.ActiveConnection=$adoCon ;绑定连接
$adoRs.open("select * from  T_TS_FILELIST")
$o_Excel=objcreate("excel.application")
$o_Excel.visible=true
$o_Workbook=$o_Excel.workbooks.add
with $o_Workbook.activesheet
    .range("A1").copyfromrecordset($adoRs)
 EndWith
$adoRs.close
$adoCon.close
_ExcelBookSaveAs($o_Excel, "e:\temp1.xls", "xls", 0, 1)

qwe4919705 · 发表于 2014-8-18 14:21:32

回复 8# shuaiw

能说一下autoit在win7 64下如何连接oracle？obdc需要下载安装才能用？

		自动登录	找回密码
密码			加入

[系统综合] 【已解决】怎么用au3对oracle数据库进行远程连接