Problème package mysqltcl DAV34
#15
Enfin connecté du pc, j'en profite pour attirer ton attention sur cette proc :
TCL
bind dcc - afficher dcc:afficher
proc dcc:afficher {hand idx arg} {
	service:connect
	mysqlsel $::mysqlink "SELECT * FROM `access` ORDER BY id"
	if {[mysqlresult $::mysqlink rows] ne 0} {
		while {[set row [mysqlnext $::mysqlink]] != ""} {
                  putlog "id : [lindex $row 0]"
                  putlog "pseudo : [lindex $row 1]"
                  putlog "pass : [lindex $row 2]"
                  putlog "grade : [lindex $row 3]"
                  putlog "suspend : [lindex $row 4]"
                  putlog "statut : [lindex $row 5]"
	        }
        }
    service:deconnect
}



Je pense que le plus simple est directement de mettre ça sous forme de liste.
1 : ouverture
2 : récupération des données
3 : fermeture

Ensuite on peut tranquillement travailler sur notre liste.
Exemple :

TCL
bind dcc - afficher dcc:afficher
proc dcc:afficher {hand idx arg} {
# Recupération des informations sous forme de liste
service:connect
set res [mysqlsel $::mysqlink "SELECT * FROM `access` ORDER BY id" -list]
service:deconnect
    if { [string length $res] ne 0 } {
        foreach row $res {
            putlog "id : [lindex $row 0]"
            putlog "pseudo : [lindex $row 1]"
            putlog "pass : [lindex $row 2]"
            putlog "grade : [lindex $row 3]"
            putlog "suspend : [lindex $row 4]"
            putlog "statut : [lindex $row 5]"
        }
    }
}



Je pense que c'est un point important à connaitre lorsque l'on code un gros projet ayant pas mal de requêtes de ce style.


Crdlt
Répondre Avertir


Messages dans ce sujet
Problème package mysqltcl DAV34 - par crash - 30/01/2009, 19:04
RE: Problème package mysqltcl DAV34 - par BeussAy - 02/02/2009, 16:49

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté