autoit 连接oracle 数据库
本帖最后由 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("selectrole from test")
While Not $adoRs.eofAnd 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)
有用的话,帮顶一顶 我用MSSQL,不过数据库大多都是相通的,谢谢了。 谢谢分享。好精神 感谢了。学习下. 收藏,感谢分享~~~ 以前就有UDF使用 这个有点用的 支持楼主!!! 楼主测试过没有??连接ORACLE需要SID,没有看到哦?
难到通过microsoft odbc for oracle 不需要sid?
有谁实测过 学习了!!!! 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 nameFrom " & $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 锋城未逾年 发表于 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, ...
明白了谢谢老师,我的基本功的确不扎实。
页:
[1]