tcl tdbc::odbc包并将参数传递给查询

Question

这是我第一次尝试使用tdbc包(ODBC连接)，我不知道如何将参数传递到查询中。代码如下：

set dsnName dsn1
set username user1
set password xxxxx
set connStr "DSN=$dsnName; UID=$username; PWD=$password;"
tdbc::odbc::connection create db $connStr

set rows [db allrows {SELECT DISTINCT [Address] FROM [Customers] WHERE [Apt Number]='3-b'}]

这是有效的。但是，我想将'3-b‘传递给查询。所以我试着：

set queryValues [dict create apt 3-b]
set rows [db allrows {SELECT DISTINCT [Address] FROM [Customers] WHERE [Apt Number]=':apt'} $queryValues]

但这给了我一个错误(MicrosoftString数据，右截断)或类似的东西。我尝试了不同的格式，但都不起作用。我做错了什么？

(根据Glenn的回答，我也尝试过：

set stmt [db prepare {SELECT DISTINCT [Address] FROM [Customers] WHERE [Apt Number]=:apt}]
set params [dict create apt "3-b"]
set rows [$stmt allrows $params]

相同的错误( 1ODBC SQL Server DriverString数据，右截断)

但这是可行的。

 set stmt [db prepare {SELECT DISTINCT [Address] FROM [Customers] WHERE [Apt Number]='3-b'}]
set rows [$stmt allrows]

我还必须补充说，tclodbc包在这里工作得很好。请参阅下面的代码

package require tclodbc
#<connect to database>
#query
set aptNo "3-b"
set query "SELECT DISTINCT \[Address\] FROM \[Customers\] WHERE \[Apt Number\]=?"
set dbResult [$dbConn $query [list $aptNo]]

在tclodbc包中工作正常，但类似的代码在tdbc包中失败。

--Suresh

Answer 1

您需要使用prepared statement

# note, no quotes around the placeholder param name.
set stmt [db prepare {SELECT DISTINCT [Address] FROM [Customers] WHERE [Apt Number]=:apt}]
set params [dict create apt "3-b"]
set rows [$stmt allrows $params]

或者你可以创建一个"apt“局部变量：

set apt "3-b"
set rows [$stmt allrows]