Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


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


Messages In This Thread
Problème package mysqltcl DAV34 - by crash - 30/01/2009, 19:04
RE: Problème package mysqltcl DAV34 - by BeussAy - 02/02/2009, 16:49
RE: Problème package mysqltcl DAV34 - by Kerlian22 - 05/01/2011, 23:32
RE: Problème package mysqltcl DAV34 - by Kerlian22 - 06/01/2011, 23:38

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Mysqltcl, Explication. aliasangelius 2 3,489 13/07/2014, 16:28
Last Post: aliasangelius
  MysqlTCL Herode 6 4,840 01/02/2011, 09:56
Last Post: CrazyCat
  can't find package htmlparse alanfollow 5 5,018 11/01/2011, 13:51
Last Post: CrazyCat
  Windrop + mysqltcl + sql.free.fr Oggy 1 3,759 22/06/2007, 20:10
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)