★ FEATURED ARTICLE 1. VFP SPT 连接 SQL Server 与 Access 的老系统痛点Visual FoxPro 的 SPTSQL Pass-Through是很多老系统对接外部数据库的核心手段。它的本质是绕过 VFP 自身的 DBF 引擎直接把 SQL 语句透传给 ODBC 驱动由驱动去和 SQL Server 或 Access 通信。你写一句SQLSTRINGCONNECT()VFP 就把连接串交给 ODBC 管理器返回一个连接句柄后续所有SQLEXEC()都挂在这个句柄上跑。问题在于老项目里的连接串往往是硬编码的UIDsa;PWD;明文写在 PRG 文件里服务器地址写死成(local)或某个内网 IP。一旦数据库迁移、密码轮换、或者要把本地 Access 换成远程 SQL Server就得翻遍所有表单和程序文件改字符串。更麻烦的是很多现场机器上装的是不同版本的 ODBC 驱动Driver{SQL Server}和Driver{ODBC Driver 17 for SQL Server}混用报错信息还各不相同。我见过一个典型场景某仓储系统的 VFP 客户端要同时读本地 Access 的配置表和远程 SQL Server 的业务表。开发者在 Init 事件里写了两个SQLSTRINGCONNECT()一个连 mdb一个连 SQL Server密码直接暴露在代码里。后来 SQL Server 换了密码现场十几台机器全部连不上只能一台台改 EXE 重新编译。这类问题的根源不是 SPT 本身而是连接信息的管理方式。把连接串从代码里抽出来交给一个统一的 Key 通道去管理是更稳妥的做法。TaoToken 在这里扮演的角色就是提供一个统一的 API Key 和 Base URL让 VFP 通过 HTTP 请求去获取或代理数据库连接配置而不是把敏感信息散落在每个 PRG 里。下面我会先讲清楚 SPT 连接串本身的写法再讲怎么用 TaoToken 统一 Key 通道来管理这些配置。2. TaoToken 统一 Key 通道的前置准备在讲具体配置之前先说明 TaoToken 在这个场景里解决什么问题。VFP 本身没有原生的 HTTP 客户端但可以通过WinHttp.WinHttpRequest.5.1这个 COM 对象发请求。TaoToken 提供统一的 API 入口你可以把数据库连接配置服务器地址、库名、驱动类型存在自己的配置服务里VFP 启动时用 API Key 去拉取拿到后再拼成 SPT 连接串。你需要准备三样东西TaoToken 的 API Key、Base URL、以及一个能返回连接配置的接口。API Key 在控制台创建Base URL 统一用https://taotoken.net/api。模型对话和 Coding Plan 的入口分别在不同的 deep link 下但数据库配置拉取走的是通用 API 通道。先创建 API Key。打开控制台页面新建一个 Key复制出来保存好。这个 Key 后面会写进 VFP 的配置表或环境变量里不要硬编码在 PRG 中。控制台地址是https://taotoken.net/console?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentconsoleAPI Keys 管理页在https://taotoken.net/api-keys?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentapi-keys。拿到 Key 之后你可以在 VFP 里建一个配置表sys_config.dbf字段就两个cfg_key和cfg_value。把taotoken_api_key和taotoken_base_url存进去。这样换 Key 的时候只改表不用重新编译 EXE。如果你用的是 Cline 或 Claude Code 这类工具做辅助开发它们的配置文件里也需要填 Base URL 和 Key。Cline 的 MCP 配置、Codex 的auth.json、Claude Code 的 settings 文件三件套都是 Base URL Key Model ID。TaoToken 的接入文档在https://taotoken.net/doc?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentdoc里面有各工具的配置示例。对于 VFP 项目本身我建议把连接串模板也存成配置项。比如sqlserver_conn_template存DRIVER{ODBC Driver 17 for SQL Server};SERVER%s;UID%s;PWD%s;DATABASE%s运行时用STRTRAN()替换占位符。这样驱动版本变了只改模板不用动代码逻辑。3. 可复制的 SPT 连接串与 TaoToken 配置片段这一节给出可以直接复制使用的连接串模板和配置文件片段。先看 SQL Server 的 SPT 连接串。老项目常用的是DRIVERsql server但新机器上可能只有ODBC Driver 17或ODBC Driver 18。建议用花括号包住驱动名避免空格解析问题* SQL Server 连接串模板ODBC Driver 17 lcConnStr DRIVER{ODBC Driver 17 for SQL Server}; ; SERVER192.168.1.100,1433; ; UIDsa; ; PWDYourPassword; ; DATABASEbank; ; Encryptno; ; TrustServerCertificateyes * 建立连接 lnHandle SQLSTRINGCONNECT(lcConnStr) IF lnHandle 0 MESSAGEBOX(SQL Server 连接失败句柄 TRANSFORM(lnHandle), 16, 连接错误) RETURN ENDIF注意Encryptno和TrustServerCertificateyes这两个参数。ODBC Driver 18 默认强制加密如果服务器没配证书不加这两个参数会直接报 SSL 错误。老项目迁移时这个坑很常见。Access 的连接串分两种.mdb用Microsoft Access Driver (*.mdb).accdb用Microsoft Access Driver (*.mdb, *.accdb)。路径用DBQ指定注意反斜杠和正斜杠在 VFP 字符串里的转义* Access mdb 连接串 lcAccessStr Driver{Microsoft Access Driver (*.mdb)}; ; DbqD:\BANK\Data\db1.mdb; ; Uidadmin; ; Pwd; lnAccessHandle SQLSTRINGCONNECT(lcAccessStr) IF lnAccessHandle 0 MESSAGEBOX(Access 连接失败, 16, 错误) RETURN ENDIF如果你要把这些连接串交给 TaoToken 统一管理可以建一个 JSON 配置文件放在项目目录下VFP 启动时读取。JSON 内容如下{ taotoken_base_url: https://taotoken.net/api, taotoken_api_key: sk-your-key-here, sqlserver: { driver: {ODBC Driver 17 for SQL Server}, server: 192.168.1.100,1433, database: bank, uid: sa, pwd: YourPassword, encrypt: no, trust_server_certificate: yes }, access: { driver: {Microsoft Access Driver (*.mdb)}, dbq: D:\\BANK\\Data\\db1.mdb, uid: admin, pwd: } }VFP 读取 JSON 可以用FILETOSTR()加STRTRAN()做简单解析或者用JsonToFox这类第三方类库。如果不想引入依赖直接读 INI 文件更省事[taotoken] base_urlhttps://taotoken.net/api api_keysk-your-key-here [sqlserver] driver{ODBC Driver 17 for SQL Server} server192.168.1.100,1433 databasebank uidsa pwdYourPassword [access] driver{Microsoft Access Driver (*.mdb)} dbqD:\BANK\Data\db1.mdb uidadmin pwd用GETFILE()或FILETOSTR()读进来按行解析成变量再拼连接串。这样换环境只改 INI不动代码。4. 用 SPT 函数验证连通性与成功结果配置写好后必须验证连通性。VFP 的 SPT 验证分三步SQLSTRINGCONNECT()返回句柄、SQLEXEC()执行查询返回行数、SQLDISCONNECT()释放句柄。下面是一个完整的验证程序你可以直接存成test_conn.prg运行* test_conn.prg - SPT 连通性验证 CLEAR LOCAL lcConnStr, lnHandle, lnRet, lcMsg * 从 INI 读取配置简化版实际项目建议封装成函数 lcIni FILETOSTR(config.ini) lcServer STREXTRACT(lcIni, server, CHR(13)) lcDatabase STREXTRACT(lcIni, database, CHR(13)) lcUid STREXTRACT(lcIni, uid, CHR(13)) lcPwd STREXTRACT(lcIni, pwd, CHR(13)) * 拼 SQL Server 连接串 lcConnStr DRIVER{ODBC Driver 17 for SQL Server}; ; SERVER ALLTRIM(lcServer) ; ; UID ALLTRIM(lcUid) ; ; PWD ALLTRIM(lcPwd) ; ; DATABASE ALLTRIM(lcDatabase) ; ; Encryptno;TrustServerCertificateyes * 第一步建立连接 lnHandle SQLSTRINGCONNECT(lcConnStr) IF lnHandle 0 MESSAGEBOX(连接失败句柄 TRANSFORM(lnHandle), 16, SPT 错误) RETURN ENDIF WAIT WINDOW 连接成功句柄 TRANSFORM(lnHandle) TIMEOUT 2 * 第二步执行查询验证 lnRet SQLEXEC(lnHandle, SELECT TOP 5 * FROM sys.tables, curTest) IF lnRet 0 MESSAGEBOX(查询失败返回 TRANSFORM(lnRet), 16, SQLEXEC 错误) SQLDISCONNECT(lnHandle) RETURN ENDIF WAIT WINDOW 查询成功返回行数 TRANSFORM(lnRet) TIMEOUT 2 * 第三步浏览结果 SELECT curTest BROWSE NORMAL NOWAIT * 第四步释放连接 SQLDISCONNECT(lnHandle) WAIT WINDOW 连接已释放 TIMEOUT 1运行后如果看到句柄大于 0、SQLEXEC返回正数、BROWSE 窗口弹出数据说明整条链路通了。SQLEXEC的返回值是受影响的行数SELECT语句返回结果集行数INSERT/UPDATE/DELETE返回影响行数。如果返回 -1说明语句执行出错可以用AERROR()取详细错误信息lnRet SQLEXEC(lnHandle, SELECT * FROM 不存在的表, curErr) IF lnRet -1 AERROR(laErr) MESSAGEBOX(错误码 TRANSFORM(laErr[1]) CHR(13) ; 错误信息 laErr[2], 16, 详细错误) ENDIF对于 Access验证方式一样只是连接串不同。注意 Access 的SQLEXEC对 SQL 语法要求更严格TOP和LIMIT都不支持要用SELECT * FROM 表名然后靠BROWSE限制显示行数。如果你用 TaoToken 的 API 通道来拉取配置验证时可以先调一次模型对话接口确认 Key 有效。模型对话入口在https://taotoken.net/chat?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentchat发一条简单消息看返回是否正常。Key 没问题再去连数据库能快速定位是网络问题还是配置问题。5. 常见报错对照与排查方法SPT 连接报错的信息往往很模糊SQLSTRINGCONNECT只返回一个负数具体原因要结合 ODBC 驱动和系统日志。下面列出我实际遇到过的几类报错和排查路径。第一类返回 -1 或 -2没有更多信息。这通常是连接串格式错误或驱动不存在。排查方法是把连接串打印出来逐段检查分号、花括号、空格。DRIVER{SQL Server}和DRIVERSQL Server在部分 ODBC 版本下行为不同建议统一用花括号。另外SERVER(local)在 64 位系统上可能解析不到改成SERVERlocalhost或127.0.0.1更稳。第二类local proxy failed或Connection failed。这类报错常见于 ODBC Driver 18 的加密强制。加上Encryptno;TrustServerCertificateyes后基本能解决。如果服务器确实要求加密就需要在服务器端配好证书客户端加TrustServerCertificateyes跳过证书验证。第三类reading choices相关错误。这个报错通常出现在SQLEXEC返回结果集时VFP 试图读取游标数据但字段类型不匹配。比如 SQL Server 的datetime2类型在 VFP 里没有对应类型会报reading choices或Data type mismatch。解决办法是在 SQL 里用CONVERT(VARCHAR, 字段, 120)把日期转成字符串或者用CAST转成 VFP 能识别的类型。第四类401 错误。如果你在用 TaoToken API 拉配置时遇到 401说明 API Key 无效或过期。检查 Key 是否复制完整有没有多余空格。控制台里可以重新生成 Key。注意 Base URL 不要带尾部斜杠https://taotoken.net/api是正确的https://taotoken.net/api/可能导致路径拼接错误。第五类OAuth 相关报错。如果你用 Claude Code 或 Cline 接入 TaoToken配置里需要填 Base URL、Key、Model ID 三件套。OAuth 报错通常是 Model ID 填错或 Base URL 指向了错误的端点。Claude Code 的配置在 settings 文件里Cline 的 MCP 配置在cline_mcp_settings.jsonCodex 的在auth.json。三者的 Base URL 都填https://taotoken.net/apiModel ID 按文档里列出的填。第六类Access 连接报Could not find installable ISAM。这是 Access 驱动没装或位数不匹配。32 位 VFP 需要 32 位 Access 驱动64 位系统默认装的是 64 位驱动。去 ODBC 数据源管理器里看“驱动程序”标签页确认Microsoft Access Driver (*.mdb)存在。如果只有(*.mdb, *.accdb)连接串里的驱动名要相应改掉。排查时建议按顺序来先确认 ODBC 驱动装了没有再确认连接串格式对不对然后确认网络通不通最后确认账号密码和库名。每一步都可以用SQLSTRINGCONNECT的返回值判断。如果返回值是正数但SQLEXEC失败问题就在 SQL 语句或字段类型上不在连接本身。6. 统一 Key 通道的接入入口与后续步骤把连接串管理从代码里抽出来之后后续维护会轻松很多。TaoToken 的 API Key 可以统一管理数据库配置的拉取权限换密码、换服务器、换驱动版本都只改配置中心VFP 客户端重新启动就能生效。如果你要长期做 VFP 老系统迁移和数据库对接建议把 Coding Plan 也用上。Coding Plan 入口在https://taotoken.net/coding-plan?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentcoding-plan适合需要持续写代码、调 SQL、做数据映射的场景。Claude Code 的 Anthropic 兼容接入在https://taotoken.net/claude-code-anthropic?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentclaudecode配置好之后可以让它帮你生成 SPT 连接串模板、写排错脚本、转换 Access SQL 到 SQL Server 语法。实际项目里我习惯把连接串模板和 Key 分开存模板放 INIKey 放环境变量或加密表。VFP 启动时先读环境变量拿 Key再用 Key 去 TaoToken 拉完整配置。这样即使 INI 文件泄露没有 Key 也拿不到真实密码。API 文档在https://taotoken.net/doc?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_contentdoc里面有完整的接口说明和示例。最后提醒一点VFP 的SQLSTRINGCONNECT在连接失败时返回负数但不同 ODBC 版本返回的负数含义可能不同。不要依赖具体数值判断错误类型用AERROR()取详细信息更可靠。连接成功后记得在表单的Destroy事件里调SQLDISCONNECT()否则句柄泄漏会导致后续连接失败。
阅读完成 · 觉得有帮助？
