在运行时绑定VB6 ADO控件

Question

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

-ConnectionString -CommandType -RecordSource

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

-DataSource

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

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

Answer 1

IT并不太难。您将不得不要求或存储生产服务器的用户名和密码，并将其添加到连接字符串中。我通常使用带占位符的连接字符串，在将其分配给连接对象之前，我将使用VB Replace函数将用户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)
   ...