Управление параметрами подключения проекта

[olafbond]

Есть проект, подключенный к SQL серверу. Используется среда runtime.
Отладка проекта производится в другом месте, где нет доступа к "живому" SQL серверу - локальная копия баз.

Проблема с параметрами подключения. Как их менять, если у клиента нет доступа к окну "Свойства подключения"?

Из макроса AutoExec запускаю функцию:

Public Function OpenBase() As Integer
CurrentProject.Connection.Close
CurrentProject.Connection.ConnectionString = "datasource = C:\Connect.udl"
CurrentProject.Connection.Open
OpenBase = 1
End Function

Параметры подключения проекта это не меняет.
(Connect.udl проверен)

Что посоветуете?

[Teslenko_EA]

Здравствуйте olafbond.
"..Что посоветуете? .." - поэкспериментируйте с функцией:

Function relinkADP(sFile$) As Boolean 'аргумент - путь к UDL
On Error GoTo 9
Dim s$, fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(sFile, 1, False, -1)
f.readline:   f.readline:    s = f.readline:  f.Close
Set f = Nothing: Set fso = Nothing
s = Replace(s, """", "", 1, -1, vbTextCompare)
Application.CurrentProject.OpenConnection s
relinkADP = True
9
End Function

Евгений.

[olafbond]

Спасибо, Евгений.

Попробовал - не помогло.
на строке

Application.CurrentProject.OpenConnection s

ошибка:
Method 'OpenConnection' of object '_CurrentProject' failed

Пробовал и так:

Application.CurrentProject.OpenConnection "Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;User ID="""";Initial Catalog=jn;Data Source=(local);Initial File Name="""";Server SPN="""""

И еще. Отследил выполнение: оказалось, что макрос AutoExec выполняется после открытия основной формы приложения, что ни как не соответствует документации. Переставил открытие основной формы в макрос.

[olafbond]

Application.CurrentProject.CloseCon nection на самом деле не закрывает подключение! Не понимаю.