wuxingang5 发表于 2013-2-14 08:11:54

win7 64 ODBC连接oracle数据库的问题

win7 32位没问题可以运行，win7 64位就报错，我查了一下，应该是ODBC的问题
有没有谁有win7 64位下用ODBC连接ORACLE数据库的经验，帮忙分享一下，谢了！

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <CoProc.au3>

Dim $oMyError = ObjEvent("AutoIt.Error", "ComError")
Dim $RecordNum


Dim $objConnection, $TableContents, $QueryCode
Dim $aResult
Dim $UserName = "operate"
Dim $Password = "operate"
Dim $Database = "DCMDB"
Dim $DBServerName = "SZDPDCM.SUZ.COM"
Dim $Driver = "{Microsoft ODBC for Oracle}"
Dim $Port = 1521

Dim $Table_SICAttr = "dcc.SI_Attr"
Dim $Table_SICCONTROL = "dcc.si_cont"

Dim $DSN = "DRIVER=" & $Driver & "; " & _
                "CONNECTSTRING=(DESCRIPTION=" & _
                "(ADDRESS=(PROTOCOL=TCP)" & _
                "(HOST=" & $DBServerName & ")(PORT=" & $Port & "))" & _
                "(CONNECT_DATA=(SID=" & $Database & "))); uid=" & $UserName & ";pwd=" & $Password & ";"



While 1

        $objConnection = ObjCreate("ADODB.Connection")
        $objConnection.open($DSN)
        $QueryCode = "select count(*) from " & $Table_SICCONTROL
        $TableContents = $objConnection.Execute($QueryCode)
        $aResult = $TableContents.GetRows()
        $RecordNum = $aResult
        MsgBox(0,"all","$RecordNum")
        $objConnection.close()
                                       
       
WEnd

wuxingang5 发表于 2013-2-14 08:14:22

关键是autoit在win7 64位下怎么通过odbc连接oracle数据库

wsfda 发表于 2013-2-15 12:02:19

本帖最后由 wsfda 于 2013-2-15 12:03 编辑

win7 x64 ODBC连接mysql正在使用，没有问题，ORACLE没有测试
期待楼主出UDF

xms77 发表于 2013-2-16 10:50:49

到目前为止，Oracle数据从来都没有连上过，不管是xp，win7 x86/x64.
哎~~~~~

298311657 发表于 2013-2-16 23:17:11

LZ啊，你那个代码我看的都替数据库难过啊
竟然是死循环里连接数据库啊，你要要连几千万次啊？
页: [1]
查看完整版本: win7 64 ODBC连接oracle数据库的问题