autoit 连接oracle 数据库

dhh45

不是问题贴，有很多人提问这方面的问题，故贴出来

Local $role
$Connection ="DRIVER={MICROSOFT ODBC FOR ORACLE};Server=TEST;User Id=test;Password=123456"
$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection)
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象
$adoRs.ActiveConnection=$adoCon  ;绑定连接
$adoRs.open("select  role   from   test")
While Not $adoRs.eof  And Not $adoRs.bof
        If @error=1 Then ExitLoop
        For $i=0 To $adoRs.fields.count-1
                $role=$role&$adoRs.fields($i).value&"|"
        Next
        $adoRs.movenext
WEnd
$adoRs.close
$adoCon.close
$role=StringLeft($role,StringLen($role)-1)
MsgBox(0,"",$role)

有用的话，帮顶一顶

zps26

我用MSSQL，不过数据库大多都是相通的，谢谢了。

liufenglg

谢谢分享。好精神

12250279

感谢了。学习下.

boyhong

收藏，感谢分享~~~

menfan1

以前就有UDF使用

pizigao

这个有点用的

AI2010

支持楼主！！！

auto

楼主测试过没有？？连接ORACLE需要SID，没有看到哦？
难到通过microsoft odbc for oracle 不需要sid?
有谁实测过

mybkc

学习了！！！！

qtyscaicai

64位机器上无法读取ODBC

锋城未逾年

老师，我想咨询一下如何把acceess数据库中的指定一列的数据输出到combobox的下拉菜单中？这个是我的源码，但是发现执行完成后没有数据输出。
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $mdb_data_path = @ScriptDir & "\Data.mdb"
Global $Cahuanzx = "table2"
Global $mdb_data_pwd = ""
#region ### START Koda GUI section ### Form=
$Form2 = GUICreate("窗体1", 405, 293, 302, 218)
$Combo1 = GUICtrlCreateCombo("", 33, 80, 175, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("确定", 232, 56, 153, 73)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                                $addfld = ObjCreate("ADODB.Connection")
                                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
                                $RS = ObjCreate("ADODB.Recordset")
                                $RS.ActiveConnection = $addfld
                                $RS.Open("Select name  From " & $Cahuanzx)
                                While (Not $RS.eof And Not $RS.bof)
                                        If @error = 1 Then ExitLoop
                                        GUICtrlSetData($Combo1, $RS.Fields(0).value & "|" & $RS.Fields(1).value & "|" & $RS.Fields(2).value & "|" & $RS.Fields(3).value)
                                        $RS.movenext
                                WEnd
                                $RS.close
                                $addfld.Close
                                Dim $wenzi = GUICtrlRead($Combo1)
                                MsgBox(0, $wenzi, $wenzi)


               
        EndSwitch
WEnd

chzj589

锋城未逾年 发表于 2020-5-13 21:52
老师，我想咨询一下如何把acceess数据库中的指定一列的数据输出到combobox的下拉菜单中？这个是我的源码， ...

$Combo1 = GUICtrlCreateCombo("", 33, 80, 175, 25)
下拉菜单应该如何显示？
GUICtrlSetData($Combo1, "b|5|2", "b")
下面是读取下拉菜单
Dim $wenzi = GUICtrlRead($Combo1)
MsgBox(0, $wenzi, $wenzi)
还是先把基本功学好。

锋城未逾年

chzj589 发表于 2020-5-13 22:51
$Combo1 = GUICtrlCreateCombo("", 33, 80, 175, 25)
下拉菜单应该如何显示？
GUICtrlSetData($Combo1, ...

明白了谢谢老师，我的基本功的确不扎实。