autoit 连接oracle 数据库

dhh45 · 发表于 2010-10-9 14:00:49

本帖最后由 dhh45 于 2010-10-9 14:03 编辑

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

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 · 发表于 2010-10-9 14:13:36

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

liufenglg · 发表于 2010-10-9 15:03:23

谢谢分享。好精神

12250279 · 发表于 2010-10-10 11:22:52

感谢了。学习下.

boyhong · 发表于 2010-10-10 12:37:25

收藏，感谢分享~~~

menfan1 · 发表于 2010-10-20 10:21:38

以前就有UDF使用

pizigao · 发表于 2010-10-21 12:47:23

这个有点用的

AI2010 · 发表于 2010-10-21 17:07:46

支持楼主！！！

auto · 发表于 2010-10-23 11:27:27

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

mybkc · 发表于 2010-11-3 13:48:14

学习了！！！！

qtyscaicai · 发表于 2020-5-1 21:45:30

64位机器上无法读取ODBC

锋城未逾年 · 发表于 2020-5-13 21:52:54

老师，我想咨询一下如何把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 22:51:54

锋城未逾年发表于 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)
还是先把基本功学好。

锋城未逾年 · 发表于 2020-5-13 23:17:31

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

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

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

[网络通信] autoit 连接oracle 数据库

评分

相关帖子