Sql 你最好检查一下你的系统 我担心database configure add\u dsn…命令会试图配置每个用户的dsn（可能会在用户的主目录下创建/更新一些已知文件），这可能不是预期的。似乎OP采取了一些错误的路线——正确的做法是使用无DSN设置。我担心数

你最好检查一下你的系统

---

我担心

database configure add\u dsn…

命令会试图配置每个用户的dsn（可能会在用户的主目录下创建/更新一些已知文件），这可能不是预期的。似乎OP采取了一些错误的路线——正确的做法是使用无DSN设置。我担心

数据库配置添加\u DSN…

命令会尝试配置每个用户的DSN（可能会在用户的主目录下创建/更新一些已知文件），这可能不是预期的。似乎OP采取了一些错误的路线——正确的做法是采用无DSN设置。

set driver "Microsoft Access Driver (*.mdb)" 
set attributes [list "DSN=mydsn" "DBQ=c:\mydb.mdb" "FIL=MS Access"] 
database configure add_dsn $driver $attributes 

package require tclodbc

proc cs_append {varName args} {
    set alen [llength $args]
    if {$alen < 2 || $alen % 2 != 0} {
        return -code error "Wrong # args: should be varName key value ?key value?"
    }

    upvar 1 $varName qs

    foreach {key value} $args {
        if {$qs ne ""} {
            append qs \;
        }
        append qs $key = \{ [string map {\{ \\\{} $value] \}
    }
}

set user test
set pass secret

set cs ""
cs_append cs DRIVER FreeTDS UID $user PWD $pass \
    Server myserver.domain.local \
    ClientCharset UTF-8 \
    APP "My test app"

database connect db $cs
foreach row [db {select * from MyDatabase..MyTable}] {
    puts $row
}
db disconnect