tcl
::mysql::sel $::mysqlink "SELECT id,id2,pseudo FROM `access` "
if {[::mysql::result $::mysqlink rows] ne 0} {
while {[set row [::mysql::nextresult $::mysqlink]] != ""} {
putlog "id : [lindex $row 0]"
putlog "id2 : [lindex $row 1]"
putlog "pseudo : [lindex $row 2]"
}
}
me donne l'erreur suivante en pl
Code :
[10:22:43] <label-2> [10:23] id : 0
[10:22:43] <label-2> [10:23] id2 :
[10:22:43] <label-2> [10:23] pseudo :
[10:22:43] <label-2> [10:23] Tcl error [::user::time]: ::mysql::nextresult: no result pending
par contre ,
tcl
set res [::mysql::sel $::mysqlink "select id, id2, pseudo from access "]
putlog "res $res"
me donne bien le nombre d'enregistrement