# $Header: /home/cvsroot/tcldb/wisql/Tlib/ezCount,v 1.3 1997/08/25 03:22:40 de Exp ${DB}ezCount,v 1.1.1.1 1996/10/12 02:26:26 de Exp $
# tcl procs saved on Tue Sep 05 09:32:43 PDT 1995

proc ezCount msg {

	global server base table Qtable


	set sqlcmd "select count(*) from $Qtable"

	set sqt "$table"
        set res [queryDB $sqlcmd]
        if {[lindex $res 0] == "ERROR"} {
    		$msg configure -text "$res"
    		return
  	} 

	set rc [nextRec]

	$msg configure -text "There are $rc records in table $table."

}

