在运行时绑定VB6 ADO控件

在设计期间，我设置了ADO控件的以下属性：

-连接字符串 -命令类型 -记录源

同时，我设置了数据网格控件的以下属性：

-数据源

当我在生产环境中部署此应用程序时，我的问题就来了。我的生产SQL Server具有不同的UID/PWD

---

那么，如何在运行时设置上述属性呢？

这并不难。您必须请求或存储生产服务器的用户名和密码，并将其添加到连接字符串中。我通常使用带有占位符的连接字符串，在将其分配给连接对象之前，我将使用VB替换函数将用户id和密码动态插入连接字符串

例如：

Private Const SQL_CONNECTION_STRING = "Provider=sqloledb;Data Source=%SERVER%;Database=%DataBase%;User ID=%UserID%;Password=%Password%" Public Sub OpenConnection(ByVal Server as String, ByVal Database as String, ByVal UserId as String, ByVal Password as String) strConn = SQL_CONNECTION_STRING strConn = Replace$(strConn, "%SERVER%", Server, , , vbTextCompare) strConn = Replace$(strConn, "%Database%", Database, , , vbTextCompare) strConn = Replace$(strConn, "%UserID%", UserId, , , vbTextCompare) strConn = Replace$(strConn, "%Password%", Password, , , vbTextCompare) ... Private Const SQL\u CONNECTION\u STRING=“Provider=sqloledb；数据源=%SERVER%；数据库=%Database%；用户ID=%UserID%；密码=%Password%” Public Sub-OpenConnection（ByVal服务器作为字符串，ByVal数据库作为字符串，ByVal用户标识作为字符串，ByVal密码作为字符串） strConn=SQL\u连接\u字符串 strConn=Replace$（strConn，“%SERVER%”，SERVER，，vbTextCompare） strConn=Replace$（strConn，“%Database%”，Database，，vbTextCompare） strConn=Replace$（strConn，“%UserID%”，UserID，，vbTextCompare） strConn=Replace$（strConn，“%Password%”，Password，，vbTextCompare） ...

---

这似乎更适合这样做。