Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 2 sur 3
Aller à la page: <  1, 2, 3  >
[?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC
Auteur Message
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Revue du message précédent :

Ma correction n'est pas juste, j'ai eu que des erreurs sql, je posterai ma correction à midi.
Idem pour les into , ça ne fonctionne pas, message d'erreur, j ai remis comme j'avais fait et c'est passé.


Edit correction qui fonctionne :

Code:

CREATE DATABASE `Contacts` DEFAULT CHARACTER SET latin1 COLLATE latin1_general_ci;
USE `Contacts`


CREATE TABLE `ContactMe` (
`id` INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY ,
`Nom` VARCHAR(255) NOT NULL ,
`Prenom` VARCHAR(255) NOT NULL ,
`email` VARCHAR(255) NOT NULL ,
`mobile` int(11) NOT NULL
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=6 ;

INSERT INTO `ContactMe` VALUES (1, 'Jim', 'Thom','jim.thom@gmail.com', '079 000 00 00');
INSERT INTO `ContactMe` VALUES (2, 'Bill', 'Fold', 'fold@gmail.com', '079 000 00 00');
INSERT INTO `ContactMe` VALUES (3, 'Jean', 'Poole', 'jean.poole@gmail.com', '079 000 00 00');
INSERT INTO `ContactMe` VALUES (4, 'Jen', 'Tull', 'jen.tull@gmail.com', '079 000 00 00');
INSERT INTO `ContactMe` VALUES (5, 'Justin', 'Time', 'justin.time@gmail.com', '079 000 00 00');



Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
J ai ajouté das la gui les infos de connexion sql.

reste le plus dur à faire lire les informations et les stocker dans la bdd puis lister dans chaque colonnes. vue que c est pas mon fort une aide est la bienvenue.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Ayé j'arrive à extraire les elements du formulaire puis les stocker dans la BDD, et enfin afficher une msgbox.

Reste à trier les infos selon les colonnes... Sad Confused

Sablier94 >
Dans mon script bdd de base j'avais noté

Code:
`id` INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY
, qui est en fait l'équivalent de ta syntaxe.



Code:

`id_contact` int(11) NOT NULL AUTO_INCREMENT COMMENT 'Clé primaire',
PRIMARY KEY (`id_contact`)

Quelle est la différence exactement , quel est l'intérêt de faire comme toi ormis une meilleure lisibilité ?




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Oui ça donne la même chose au final.

Il ne te reste plus qu'a mettre les infos dans les colonnes ? C'est bien ça, t'est bientôt au bout.




______________________________________________________
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
ouep mais j'arrive pas à les mettre snifff. Je me pers avec les getitem et autre.

je poste mon code à midi




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Où j'en suis :


    1. Lister le contenu de la base [ok]
    2. Ajouter un contenu dans la base [ok]

      2.a ajouter des contrôles sur les champs : mail (vérifier la présence de @ dans le mail si non vide) et mobile vérifier le nombre de chiffres (stringlen)

    3. Faire une recherche dans la base de donnée [A faire] -> je pense que ça sera le plus dur...





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Voici mon code de base , il permet de lire les informations stockées dans la base de donnée, et d'ajouter une nouvelle entrée.
Il est surement possible de faire mieux.

Code:

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"

#Region ### Information de connexion SQL
Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"
#EndRegion

;déclaration des différentes variables
Global $nom, $prenom, $mail, $mobile

#Region ### création d'un tableau pour chaque élément de la table sql
Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"
#EndRegion



#Region ### START Koda GUI section ### Form=C:\Users\Cari\Desktop\SQL\contacts.kxf
Global $Form1 = GUICreate("Contacts", 625, 451, 222, 113)
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Button1 = GUICtrlCreateButton("Enregister", 496, 72, 121, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5] ; tableau pour traiter les informations lues dans la BDD.

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
DisplayTable() ; Fonction qui affiche le contenu de la table au chargement de la GUI.

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $NewGuest[0] = ""
                        $NewGuest[1] = GUICtrlRead($nom) ;  lecture de l input Nom
                        $NewGuest[3] = GUICtrlRead($mail) ; lecture de l input mail
                        $NewGuest[4] = GUICtrlRead($mobile) ; lecture de l input  mobile

                        $SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql

                        DisplayTable() ; affiche le contenu de la table

                        _AddRecord($SQLInstance, $TableName, $ColumnNames, $NewGuest) ; ajoute un nouveau enregistrement dans la base de donnée.

                        DisplayTable() ; réaffiche le contenu de la base

                        _MySQLEnd($SQLInstance)  ; quitte la connexion sql

        EndSwitch
WEnd

#Region Functions
Func DisplayTable()
        Dim $NameList[5] ; création d'un tableau pour stocker la lecture de chaque information de la bdd

        Local $SQLCode = "SELECT * FROM contactme"
        $TableContents = _Query($SQLInstance, $SQLCode)
        With $TableContents
                While Not .EOF
                       
                        $NameList[1] = .Fields("Nom" ).value ; stockage de chaque colonne de la bdd dans le tableau
                        $NameList[2] = .Fields("Prenom" ).value
                        $NameList[3] = .Fields("email" ).value
                        $NameList[4] = .Fields("Mobile" ).value
                                               .MoveNext

                        $Index = _GUICtrlListView_AddItem($lview, $NameList[1]) ; stockage le 1 element dans la 1ere colonne de la listview
                        _GUICtrlListView_AddSubItem($lview, $Index, $NameList[2], 1) ; 2nd colonne
                        _GUICtrlListView_AddSubItem($lview, $Index, $NameList[3], 2) ;3eme colonne
                        _GUICtrlListView_AddSubItem($lview, $Index, $NameList[4], 3)

                WEnd
        EndWith
EndFunc   ;==>DisplayTable






______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Pour tester ton code, j'ai installé l'UDF mysql.au3 indiqué sur le sujet que tu as donné : http://www.autoitscript.com/forum/topic/20814-mysql-udfs/

Il me donne cette erreur :
Citation:
(86) : ==> Only Object-type variables allowed in a "With" statement.


Le poste indique
Citation:
The MySQL ODBC 3.51 DRIVER IS REQUIRED FOR THIS
Mais le lien demande une inscription alors je voulais savoir si c'était vraiment nécessaire.

Ton code ne créé pas automatiquement la table au lancement du script ?




______________________________________________________
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
attention dans mon code l udf est dans le dossier du script : #include "MySQL.au3"


Oui le driver est nécessaire et donné dans le lien de l'udf
L'udf repose sur ce driver si j ai bien compris.

ODBC_DRIVER_SETUP.zip 771bytes 8809 downloads

j ai mis les fichiers ici : http://www.box.com/s/7duuv8eufnsv86mpidml

Code:

#cs
   Function Name:    _MySQLConnect
   Description:      Initiate a connection to a MySQL database.
   Parameter(s):     $username - The username to connect to the database with.
   $password - The password to connect to the database with. $Database - Database to connect to.
   $server - The server your database is on.
   $driver (optional) the ODBC driver to use (default is "{MySQL ODBC 3.51 Driver}"
   Requirement(s):   Autoit 3 with COM support
   Return Value(s):  On success returns the connection object for subsequent functions. On failure returns 0 and sets @error
   @Error = 1
   Error opening connection
   @Error = 2
   MySQL ODBC Driver not installed.
   Author(s):        cdkid
#ce



Non la table n'est pas créée dans mon script il faut la créer dans phpmyadmin.
Je ne me suis pas penchée dessus, car je ne sais pas passer outre la création de la table si elle existe.

Pour l utiliser avec l udf :
_CreateTable()
mais pas compris comment l utiliser pour le moment




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
J ai un soucis je n'arrive pas à intégrer la verification des inputs dans mon code.

si input Nom non vide continuer
Code:
if $NewGuest[1] = "" then
Msgbox(0,"", "Saisir un Nom")
Endif

si input Prénom non vide alors continuer
Code:
if $NewGuest[2] = "" then
Msgbox(0,"", "Saisir un Prénom")
Endif

si input mail contient @ alors continuer
si input mobile contient 10 chiffres alors continuer
sinon affiche un message derreur.

Sablier tu aurais une idée par hazard ?


Vérification mail
Code:

; vérifier la présence du @ dans l input mail si non présent msgbox sinon continuer la vérification
$arResultat = StringRegExp( $NewGuest[3], '(@)', 1)
       If @error == 1 Then
          msgbox(0,"Erreur","Adresse mail erronée")
          EndIf


Vérification mobile

Code:

; si l input ne contient pas 10 chiffres alors message et ne pas valider l enregistrement
 If StringLen($NewGuest[4]) = "10" Then
msgbox(0,"Erreur", "Numéro erroné")
          EndIf



Code:

#cs
Gestionnaire de contacts une seul table.

Changelog :
Gui en evenementiel


#ce
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"


Opt("GUIOnEventMode", 1)

Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"

Global $nom, $prenom, $mail, $mobile

Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"



#Region ### START Koda GUI section ### Form=C:\Users\Cari\Desktop\SQL\contacts.kxf
Global $Gui_Contacts = GUICreate("Contacts", 625, 451, 222, 113)
GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Id", 30)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Go = GUICtrlCreateButton("Enregister", 488, 120, 121, 41, $WS_GROUP)
GUICtrlSetOnEvent($Go, "Add")
Global $Search = GUICtrlCreateButton("Rechercher", 488, 48, 123, 41, $WS_GROUP)
GUICtrlSetOnEvent($Search, "Search")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5]

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
DisplayTable() ; affiche le contenu de la table

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Go
         Add()
   EndSwitch
WEnd

Func Add()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)
   $SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql

    ; ajoute un nouveau enregistrement dans la base de donnée.

   _AddRecord($SQLInstance, $TableName, $ColumnNames, $NewGuest)

   DisplayTable() ; afficher le contenu de la base

   _MySQLEnd($SQLInstance)

EndFunc   ;==>Add

#Region Functions
Func DisplayTable()
   Dim $NameList[5]
   Local $SQLCode = "SELECT * FROM contactme"
   $TableContents = _Query($SQLInstance, $SQLCode)
   With $TableContents
      While Not .EOF
         ; STOCKAGE DES RéSULTATS DANS UN TABLEAU
         $NameList[0] = .Fields("id" ).value
         $NameList[1] = .Fields("Nom" ).value
         $NameList[2] = .Fields("Prenom" ).value
         $NameList[3] = .Fields("email" ).value
         $NameList[4] = .Fields("Mobile" ).value ; lire les différents entrées dans la base
         .MoveNext

         $Index = _GUICtrlListView_AddItem($lview, $NameList[0])        ; id
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[1], 1) ;nom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[2], 2) ;prenom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[3], 3) ;mail
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[4], 4) ;mobile

      WEnd
   EndWith
EndFunc   ;==>DisplayTable

Func Search()
EndFunc   ;==>Search



Func Sortie()
   If @GUI_WinHandle = $Gui_Contacts Then
      Exit
   Else
      GUIDelete(@GUI_WinHandle)
   EndIf
EndFunc   ;==>Sortie





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Code:

#cs
   Gestionnaire de contacts une seul table.

   Changelog :
   Gui en evenementiel


#ce
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"


Opt("GUIOnEventMode", 1)

Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"

Global $nom, $prenom, $mail, $mobile

Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"



#Region ### START Koda GUI section ### Form=C:\Users\Cari\Desktop\SQL\contacts.kxf
Global $Gui_Contacts = GUICreate("Contacts", 625, 451, 222, 113)
GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Id", 30)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Go = GUICtrlCreateButton("Enregister", 488, 120, 121, 41, $WS_GROUP)
GUICtrlSetOnEvent($Go, "Verified")
Global $Search = GUICtrlCreateButton("Rechercher", 488, 48, 123, 41, $WS_GROUP)
GUICtrlSetOnEvent($Search, "Search")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5]

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
DisplayTable() ; affiche le contenu de la table

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Go
         Verified()
   EndSwitch
WEnd

Func Verified()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[2] = GUICtrlRead($prenom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)

   Local $warning = ""
   If $NewGuest[1] = "" Then $warning &= "Veuillez remplir le champ nom" & @CRLF
   If $NewGuest[2] = "" Then $warning &= "Veuillez remplir le champ prénom" & @CRLF
   If Not StringInStr($NewGuest[3], '@') Then $warning &= "email non valide"
   If StringLen($NewGuest[4]) <> "10" Then $warning &= "pas 10"
   If $warning = "" Then
      Add()
   Else
      MsgBox(0, "erreur", $warning)
   EndIf
EndFunc   ;==>Verified

Func Add()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)
   $SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql

   ; ajoute un nouveau enregistrement dans la base de donnée.

   _AddRecord($SQLInstance, $TableName, $ColumnNames, $NewGuest)

   DisplayTable() ; afficher le contenu de la base

   _MySQLEnd($SQLInstance)

EndFunc   ;==>Add

#Region Functions
Func DisplayTable()
   Dim $NameList[5]
   Local $SQLCode = "SELECT * FROM contactme"
   $TableContents = _Query($SQLInstance, $SQLCode)
   With $TableContents
      While Not .EOF
         ; STOCKAGE DES RéSULTATS DANS UN TABLEAU
         $NameList[0] = .Fields("id" ).value
         $NameList[1] = .Fields("Nom" ).value
         $NameList[2] = .Fields("Prenom" ).value
         $NameList[3] = .Fields("email" ).value
         $NameList[4] = .Fields("Mobile" ).value ; lire les différents entrées dans la base
         .MoveNext

         $Index = _GUICtrlListView_AddItem($lview, $NameList[0]) ; id
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[1], 1) ;nom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[2], 2) ;prenom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[3], 3) ;mail
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[4], 4) ;mobile

      WEnd
   EndWith
EndFunc   ;==>DisplayTable

Func Search()
EndFunc   ;==>Search



Func Sortie()
   If @GUI_WinHandle = $Gui_Contacts Then
      Exit
   Else
      GUIDelete(@GUI_WinHandle)
   EndIf
EndFunc   ;==>Sortie




Dernière édition par Laddy le Mer 8 Fév 2012 - 13:10; édité 1 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
1. Lister le contenu de la base [ok]
2. Ajouter un contenu dans la base [ok]
3.a ajouter des contrôles sur les champs [ok]

4. Faire une recherche dans la base de donnée [A faire] -> je pense que ça sera le plus dur...
Je pense que c est un truc du genre :

Selectionne le champ Nom provenant de la table contactsme où le nom est egal à le champ input saisie
Code:

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
[del]Local $SQLCode = SELECT Nom FROM contactsme WHERE  Nom=GUICtrlRead($nom) [/del]
Local $SQLCode = "SELECT Nom FROM contactsme WHERE  Nom= '" & $NameGuest[1] & "'";
$TableContents = _Query($SQLInstance, $SQLCode)





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Bonjour

l'ajout fonctionne avec vérification des champs mais la fonction search() pas encore.

Code:

#cs
   Gestionnaire de contacts une seul table.
   
   Changelog :
   Gui en evenementiel
   
   
#ce
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"


Opt("GUIOnEventMode", 1)

Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"

Global $nom, $prenom, $mail, $mobile

Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"



#Region ### START Koda GUI section ### Form=C:\Users\Cari\Desktop\SQL\contacts.kxf
Global $Gui_Contacts = GUICreate("Contacts", 625, 451, 222, 113)
GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Id", 30)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Go = GUICtrlCreateButton("Enregister", 488, 120, 121, 41, $WS_GROUP)
GUICtrlSetOnEvent($Go, "Verified")
Global $Search = GUICtrlCreateButton("Rechercher", 488, 48, 123, 41, $WS_GROUP)
GUICtrlSetOnEvent($Search, "Search")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5]

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
DisplayTable() ; affiche le contenu de la table

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Go
         Verified()
   EndSwitch
WEnd

Func Verified()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[2] = GUICtrlRead($prenom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)

   Local $warning = "" ; création variable vide pour la vérification des champs de saisie.
   If $NewGuest[1] = "" Then $warning &= "Veuillez remplir le champ nom" & @CRLF
   If $NewGuest[2] = "" Then $warning &= "Veuillez remplir le champ prénom" & @CRLF
   If Not StringInStr($NewGuest[3], '@') Then $warning &= "email non valide, arobase absent" & @CRLF
   If StringLen($NewGuest[4]) <> "10" Then $warning &= "Manque un chiffre"
   If $warning = "" Then ;si les champs sont ok alors executer l'ajout de la base sql.
      Add()
   Else
      MsgBox(0, "erreur", $warning)
   EndIf
EndFunc   ;==>Verified

Func Add()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)
   $SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql

   ; ajoute un nouveau enregistrement dans la base de donnée.

   _AddRecord($SQLInstance, $TableName, $ColumnNames, $NewGuest)

   DisplayTable() ; afficher le contenu de la base

   _MySQLEnd($SQLInstance)

EndFunc   ;==>Add

#Region Functions
Func DisplayTable()
   Dim $NameList[5]
   Local $SQLCode = "SELECT * FROM contactme"
   $TableContents = _Query($SQLInstance, $SQLCode)
   With $TableContents
      While Not .EOF
         ; STOCKAGE DES RéSULTATS DANS UN TABLEAU
         $NameList[0] = .Fields("id" ).value
         $NameList[1] = .Fields("Nom" ).value
         $NameList[2] = .Fields("Prenom" ).value
         $NameList[3] = .Fields("email" ).value
         $NameList[4] = .Fields("Mobile" ).value ; lire les différents entrées dans la base
         .MoveNext
         ;affiche les résultats dabs la listview.
         $Index = _GUICtrlListView_AddItem($lview, $NameList[0]) ; id
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[1], 1) ;nom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[2], 2) ;prenom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[3], 3) ;mail
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[4], 4) ;mobile

      WEnd
   EndWith
EndFunc   ;==>DisplayTable

#cs
Func Search() ; non fonctionnel
   Local $SQLCode = "SELECT" & $ColumnNames[1] & "FROM contactme where name=" & $NewGuest[1] & '"'
   $TableContents = _Query($SQLInstance, $SQLCode)
   EndWith
EndFunc   ;==>Search
#ce


Func Sortie()
   If @GUI_WinHandle = $Gui_Contacts Then
      Exit
   Else
      GUIDelete(@GUI_WinHandle)
   EndIf
EndFunc   ;==>Sortie





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Code:

#cs
   Gestionnaire de contacts une seul table.

   Changelog :
                          Légende : (+ Ajout, - Suppression, B correction de bugs.)
   + Gui en evenementiel
        + Func Verifided : vérification des champs de saisie (Merci Mikell)
        + Ajout vider les champs de saisie 
        + Func Search (Merci Topxm, matwachich)

        TodoList :
        Recherche multiple quelques soient le champ saisie


#ce
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"


Opt("GUIOnEventMode", 1)

Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"

Global $nom, $prenom, $mail, $mobile

Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"



#Region ### START Koda GUI section ### Form=C:\Users\Cari\Desktop\SQL\contacts.kxf
Global $Gui_Contacts = GUICreate("Contacts", 625, 451, 222, 113)
GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Id", 30)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Go = GUICtrlCreateButton("Enregister", 488, 120, 121, 41, $WS_GROUP)
GUICtrlSetOnEvent($Go, "Verified")
Global $Search = GUICtrlCreateButton("Rechercher", 488, 48, 123, 41, $WS_GROUP)
GUICtrlSetOnEvent($Search, "Search")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5]

$SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
DisplayTable() ; affiche le contenu de la table

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Go
         Verified()
   EndSwitch
WEnd

Func Verified()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[2] = GUICtrlRead($prenom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)

   Local $warning = "" ; création variable vide pour la vérification des champs de saisie.
   If $NewGuest[1] = "" Then $warning &= "Veuillez remplir le champ nom" & @CRLF
   If $NewGuest[2] = "" Then $warning &= "Veuillez remplir le champ prénom" & @CRLF
   If Not StringInStr($NewGuest[3], '@') Then $warning &= "email non valide, arobase absent" & @CRLF
   If StringLen($NewGuest[4]) <> "10" Then $warning &= "Manque un chiffre"
   If $warning = "" Then ;si les champs sont ok alors executer l'ajout de la base sql.
      Add()
   Else
      MsgBox(0, "erreur", $warning)
   EndIf
EndFunc   ;==>Verified

Func Add()
   $NewGuest[0] = ""
   $NewGuest[1] = GUICtrlRead($nom)
   $NewGuest[2] = GUICtrlRead($prenom)
   $NewGuest[3] = GUICtrlRead($mail)
   $NewGuest[4] = GUICtrlRead($mobile)
   $SQLInstance = _MySQLConnect($UserName, $Password, $Database, $MySQLServerName) ; connexion sql
;Détruire le contenu des colonnes
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($lview))
   ; ajoute un nouveau enregistrement dans la base de donnée.
   _AddRecord($SQLInstance, $TableName, $ColumnNames, $NewGuest)



   ;Effacer les champs de saisie
   GUICtrlSetData($nom, "")
   GUICtrlSetData($prenom, "")
   GUICtrlSetData($mail, "")
   GUICtrlSetData($mobile, "")
   DisplayTable() ; afficher le contenu de la base

   _MySQLEnd($SQLInstance)

EndFunc   ;==>Add



#Region Functions
Func DisplayTable()
   Dim $NameList[5]
   Local $SQLCode = "SELECT * FROM contactme"
   $TableContents = _Query($SQLInstance, $SQLCode)
   With $TableContents
      While Not .EOF
         ; STOCKAGE DES RéSULTATS DANS UN TABLEAU
         $NameList[0] = .Fields("id" ).value
         $NameList[1] = .Fields("Nom" ).value
         $NameList[2] = .Fields("Prenom" ).value
         $NameList[3] = .Fields("email" ).value
         $NameList[4] = .Fields("Mobile" ).value ; lire les différents entrées dans la base
         .MoveNext
         ;affiche les résultats dabs la listview.
         $Index = _GUICtrlListView_AddItem($lview, $NameList[0]) ; id
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[1], 1) ;nom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[2], 2) ;prenom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[3], 3) ;mail
         _GUICtrlListView_AddSubItem($lview, $Index, $NameList[4], 4) ;mobile

      WEnd
   EndWith
EndFunc   ;==>DisplayTable


Func Search() ; non fonctionnel
   _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($lview))
   Dim $NameSearch[5]
   Local $SQLCode = "SELECT * FROM contactme WHERE  Nom= '" & GUICtrlRead($nom) & "'";
   $TableContents = _Query($SQLInstance, $SQLCode)
   Local $tmp
   With $TableContents
      While Not .EOF
         ; STOCKAGE DES RéSULTATS DANS UN TABLEAU
         $tmp = .Fields("id")
         $NameSearch[0] = $tmp.value
         $tmp = .Fields("Nom")
         $NameSearch[1] = $tmp.value
         $tmp = .Fields("Prenom")
         $NameSearch[2] = $tmp.value
         $tmp = .Fields("email")
         $NameSearch[3] = $tmp.value
         $tmp = .Fields("Mobile")
         $NameSearch[4] = $tmp.value ; lire les différents entrées dans la base
         $tmp = .Fields
         .MoveNext
         ;affiche les résultats dabs la listview.
         $Index = _GUICtrlListView_AddItem($lview, $NameSearch[0]) ; id
         _GUICtrlListView_AddSubItem($lview, $Index, $NameSearch[1], 1) ;nom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameSearch[2], 2) ;prenom
         _GUICtrlListView_AddSubItem($lview, $Index, $NameSearch[3], 3) ;mail
         _GUICtrlListView_AddSubItem($lview, $Index, $NameSearch[4], 4) ;mobile

      WEnd
   EndWith
EndFunc   ;==>Search


Func Sortie()
   If @GUI_WinHandle = $Gui_Contacts Then
      Exit
   Else
      GUIDelete(@GUI_WinHandle)
   EndIf
EndFunc   ;==>Sortie





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Fait :
Création de 4 nouvelles tables

A venir :
+Modification, remodelage de la Gui
+Gui adpatable à la taille de l'écran (plein écran)


Ajout de 3 nouveaux champs combox : Windows Licence, Office Licence, Antivirus Licence (Id Cmanix)
---> Affichage des résultats dans un popup
->>> voir pour faire une fonction pour impression

Ajout d'un bouton pour accèder à la configuration Outook : User, mdp, pop + port, smtp+port

Ajout d'une administration pour ajouter des nouveaux logiciels ou nouveau fournisseurs d'accès:

Ajouter Nouvel OS
Ajouter Nouvel Office
Ajouter Nouveau antivirus
Ajouter Nouveau F.A.I




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
Merci pour tout ca j'en aurais surement besoin pour mon futur programme Very Happy




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Répondre en citant
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 
C'est le but, espère que ça vous aidera à developper d'autres choses, pour le moment je suis en standbye je manque de temps pour terminer

Crying or Very sad

pis je cherche la fonction pour faire l impression Very Happy




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message [?] SQL et Autoit : Projet gestionnaire d'utilisateurs PC 


Montrer les messages depuis:
Répondre au sujet Page 2 sur 3
Aller à la page: <  1, 2, 3  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch