[..] Listes requete SQL

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Seriale
Niveau 1
Niveau 1
Messages : 2
Enregistré le : jeu. 20 févr. 2014 13:22
Status : Hors ligne

[..] Listes requete SQL

#1

Message par Seriale »

Bonjour ,

Je viens de commencer à utiliser AutoIt donc je mes connaissances sur le sujet sont faibles :oops: . Je souhaite utiliser AutoIt pour faire un petit outil de visualisation et de tri d'une base de données SQl server 2008 r2 ( meme deux à vrais dire). Je voudrais afficher le résultat de 4 requetes dans 4 liste différentes. Cela représente des listes de logiciels mais impossible d'y arriver ! Si quelqu'un pouvait me donner une piste :)

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$constrim= "DRIVER={SQL Server};SERVER=***********/**********;DATABASE=logicielsPc;uid=logiciel;pwd=******;"
$adCN = ObjCreate ("ADODB.Connection") ; <== Create SQL connection
$adCN.Open ($constrim) ; <== Connect with required credentials


$toutSoft = "select * from logiciels"
$result1 = $adCN.Execute($toutSoft)

$constrim= "DRIVER={SQL Server};SERVER=*************/*********;DATABASE=supervision;uid=logiciel;pwd=*****;"
$adCN = ObjCreate ("ADODB.Connection") ; <== Create SQL connection
$adCN.Open ($constrim) ; <== Connect with required credentials
$softCateg0 = "select * from logiciels where statut=0"
$softCateg1 = "select * from logiciels where statut=1"
$softCateg2 = "select * from logiciels where statut=2"
$result2 = $adCN.Execute($softCateg0)
$result3 = $adCN.Execute($softCateg1)
$result4 = $adCN.Execute($softCateg2)

#Region ### START Koda GUI section ### Form=D:\Profils\srgh07931\Documents\koda_1.7.3.0\Forms\VPU.kxf
$Form1 = GUICreate("Principal", 904, 672, 183, 121)
$ListTraiter = GUICtrlCreateList("", 16, 80, 169, 565) ; remplir avec la requete $toutSoft
$ListAutori = GUICtrlCreateList("", 256, 80, 169, 565) ; remplir avec la requete $softCateg0
$ListInterdits = GUICtrlCreateList("", 483, 81, 169, 565) ; remplir avec la requete $softCateg2
$ListExaminer = GUICtrlCreateList("", 717, 79, 169, 565) ; remplir avec la requete $softCateg1
$LabelListeTraiter = GUICtrlCreateLabel("Traiter ", 72, 48, 44, 17)
$LabelListeAutoris = GUICtrlCreateLabel("Autorisés", 320, 48, 47, 17)
$LabelListeInterdits = GUICtrlCreateLabel("Interdits", 536, 48, 41, 17)
$LabelListeExaminer = GUICtrlCreateLabel("Examiner", 776, 48, 47, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

$adCN.Close ; ==> Close the database
 
Avatar du membre
jguinch
Modérateur
Modérateur
Messages : 2511
Enregistré le : lun. 14 févr. 2011 22:12
Status : Hors ligne

Re: [..] Listes requete SQL

#2

Message par jguinch »

JCHD avait posté un UDF AdoSQL.au3. Ca pourrait faire l'affaire ?
Le script, ça fait gagner beaucoup de temps... à condition d'en avoir beaucoup devant soi !
Avatar du membre
jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2272
Enregistré le : lun. 30 mars 2009 22:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: [..] Listes requete SQL

#3

Message par jchd »

Normalement oui, ça doit marchouiller avec tout support ADO.
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.
Seriale
Niveau 1
Niveau 1
Messages : 2
Enregistré le : jeu. 20 févr. 2014 13:22
Status : Hors ligne

Re: [..] Listes requete SQL

#4

Message par Seriale »

Merci ! Je ne comprend pas trop mais je vais étudier ça :D
Répondre