Enfin connecté du pc, j'en profite pour attirer ton attention sur cette proc :
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 :
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
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