Привязка VB6 ADO Control во время выполнения - PullRequest
Новая
       12

Привязка VB6 ADO Control во время выполнения

0 голосов
/ 30 октября 2009

Во время разработки я установил следующие свойства элемента управления ADO:

-ConnectionString -CommandType -RecordSource

В то же время я установил следующие свойства элемента управления Data Grid:

-DataSource

Моя проблема возникает при развертывании этого приложения в производственной среде. Мой производственный SQL Server имеет другой UID / PWD.

Итак, как мне установить вышеуказанные свойства во время выполнения?

1 Ответ

1 голос
/ 30 октября 2009

ЭТО не так уж сложно. Вам нужно будет запросить или сохранить имя пользователя и пароль для вашего производственного сервера и добавить их в строку подключения. Я обычно использую строку подключения с заполнителями, которые я буду использовать функцию VB Replace для динамической вставки идентификатора пользователя и пароля в строку подключения перед тем, как назначить их объекту подключения.

Например: 

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)
   ...
...