Mysql 如何检查表中是否存在变量？TCL

我对这种语言很陌生，需要一些帮助。我想要pass/send email变量，看看它是否存在于数据库表中

'proc: TEST::TestingFunc {ArrayName}{
 upvar #0 $ArrayName Param
   if {[info exists Param(data)]} {
        set email $Param(data)
      }
}'

---

这不是一个答案，我只需要格式化功能来写这个评论。不太清楚你在问什么或者你想做什么。如果要检查给定关联数组中是否有名为

data

的成员，并获取其值，那么您发布的代码基本上是可以的。代码中有几个错误：应该是这样的

proc TEST::TestingFunc {ArrayName} {
    upvar #0 $ArrayName Param
    if {[info exists Param(data)]} {
        set email $Param(data)
    }
}

要使其工作，还需要创建一个名为

TEST

的名称空间

---

除此之外，我不确定你想做什么。“通过/发送”是什么意思？您所说的“数据库表”是关联数组，还是其他意思？

请澄清问题。请添加更多细节。谷歌“tcl mysql”没有给出任何结果如何使用tcl连接到mysql？当您谷歌“sql检查值是否在表中”时出现了什么？嗨，我编辑了我的帖子。一旦建立了连接，我们仍然无法确定如何发送值，并查看它是否与应答的hanks匹配。我需要在数据库表中检查是否存在某个电子邮件地址。此函数是应用程序中的一个添加项。应用程序有一个email字段，我需要将其值发送到表中，并检查表中是否存在该值。我希望这是有意义的。拥有一个数据库，其中一个字段是电子邮件地址，并搜索数据库以查看数据库中的一条记录中是否存在给定的地址，这是非常有意义的。但我仍然需要知道它是什么类型的数据库，以及它是如何安排的，至少大致如此。啊，这是一个简单的SQL数据库，例如它有一个表名：“Persons”和电子邮件的列名，这是一个字符串值。您如何将数据库与脚本连接？我对sqlite有点熟悉；还有Tcl ODBC。（顺便说一句，我马上就要参加当地的晚会了，所以我可能在几个小时内看不到你的回复。）我有一些参考代码，它是通过

set query“select from$：：TS:：database.xxxx where email='$email'

完成的。我认为这与数据相符？PS。我理解并感谢你的帮助。