tcl/informix获取数据库并以表格形式显示

我必须用tcl编写这段代码，我真的很沮丧，因为这是我第一次使用tcl。我需要显示如下内容：

我正在使用tcl/informix，我正在为如何实现上述目标而挣扎。这是我写的一个伪代码

    select event_date,attempts_cnt,success_cnt,fail_cnt from cc_web_ppv_counts WHERE 
        event_id='123' 
    {
        get $sd_attempt_cnt
        get $sd_success_cnt
        get $sd_fail_cnt
            get event_date




        select event_date,attempts_cnt,success_cnt,fail_cnt from cc_web_ppv_counts WHERE 
            event_id='125' 
        {
            get $hd_attempt_cnt
            get $hd_success_cnt
            get $hd_fail_cnt

            $total_attempts=$sd_attempt_cnt + $hd_attempt_cnt;
            $total_success=$sd_success_cnt + $hd_success_cnt;
            $total_fail=$total_attempts -$total_success;
            $success_rate=($total_success/$total_attempts)*100;
            $hd_success_rate=($hd_success_cnt/total_success)*100;
            $sd_success_rate=($sd_success_cnt/total_success)*100;
        }
    }

请注意，对于每个事件_日期（例如今天），只有2条记录。对于sd和hd，分别为。因此，必须在输出中动态显示日期

如果有人能指出tcl中的一些示例，它们可以像上面那样提取数据和显示，我将不胜感激。

可能需要一个合适的ODBC驱动程序

至于问题的第二部分，答案在很大程度上取决于如何定义“显示”。

可能需要一个合适的ODBC驱动程序

---

至于问题的第二部分，答案在很大程度上取决于如何定义“显示”。

您需要一个SQL游标来循环遍历每个事件日期并每天处理数据。您应该能够在1个SQL语句中完成这一切，但老实说，我对Informix很熟悉。如果你再解释一下你使用的是什么技术，你可能会得到更多的帮助。你需要一个SQL游标来循环每个事件日期并每天处理数据。您应该能够在1个SQL语句中完成这一切，但老实说，我对Informix很熟悉。如果你多解释一下你正在使用的技术，你可能会得到更多的帮助。