Je souhaiterais savoir, selon vous, quel serait le meilleurs moyen pour récupérer dans une GUI le résultat d'une requête SQL.
L'idée au bout du bout c'est que mes utilisateurs saisissent un nom et un prénom dans une GUI puis après clic sur un bouton que la GUI leur affiche toutes correspondances possible trouvé en base (affichage de 5 champs).
Ils sélectionnent un des résultat puis clique sur un autre bouton pour lancer une action.
Pour le moment je n'en suis qu'au début, j'ai trouvé comment communiquer avec ma base (oracle) et afficher le résultat de requête simple dans la console.
La finalité de l'outil est de faciliter l'intégration de document dans notre GED Métier propre a notre ERP sous Oracle.
Je suis ce que l'on peu qualifier de novice donc n'hésitez pas a bien détailler vos explications.
Je vous remercie par avance pour votre aide qui me sera précieuse.
Voici mon code actuel :
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
Dim $oMyError
; Initializes COM handler
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$ado = ObjCreate("ADODB.Connection") ; Create a COM ADODB Object with the Beta version
With $ado
.ConnectionString = ("Driver={Oracle in Orant12};DBQ=BDD_TCP.world;Uid=user;Pwd=password;")
.Open
EndWith
$adors = ObjCreate("ADODB.RecordSet") ; Create a Record Set to handles SQL Records
With $adors
.ActiveConnection = $ado
;.CursorLocation = "adUseClient"
;.LockType = "adLockReadOnly" ; Set ODBC connection read only
.Source = "select * from table'"
.Open
EndWith
While Not $adors.EOF
For $i = 0 To $adors.Fields.Count - 1
ConsoleWrite($adors.Fields($i).Value & @TAB) ; Columns in the AutoIt console use Column Name or Index
Next
ConsoleWrite(@CR)
$adors.MoveNext ; Go to the next record
WEnd
; This COM error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & $HexNumber & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext _
)
SetError(1) ; to check for after this function returns
EndFunc ;==>MyErrFunc