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

shuaiw

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

1. #include <Array.au3>
   
2. #include <Excel.au3>
   
3. #include <SQLite.au3>
   
4. Local $role
   
5. Local $aResult, $iRows, $iColumns, $iRval
   
6. $Connection ="Provider=SQLOLEDB,User ID=dtv;Password=dtv;Data Source=192.168.6.202;Initial Catalog='dtv'"
   
7. 
   
8. $adoCon=ObjCreate("ADODB.Connection");建立ADO对象
   
9. $adoCon.open($Connection)
   
10. $adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
    
11. $adoRs.ActiveConnection=$adoCon ;绑定连接
    
12. $adoRs.open("select * from  BOX")
    
13. $o_Excel=objcreate("excel.application")
    
14. $o_Excel.visible=true
    
15. $o_Workbook=$o_Excel.workbooks.add
    
16. with $o_Workbook.activesheet
    
17.     .range("A1").copyfromrecordset($adoRs)
    
18. EndWith
    
19. $adoRs.close
    
20. $adoCon.close
    
21. _ExcelBookSaveAs($o_Excel, "e:\temp1.xls", "xls", 0, 1)
    
22. 
    

复制代码

h20040606

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

auto

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

shuaiw

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

shuaiw

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

shuaiw

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

xms77

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

shuaiw

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

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

复制代码

qwe4919705

回复 8# shuaiw




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