Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос создания подключения к MS SQL Server (находящемуся на RDP)
 
Здравствуйте.
Пытаюсь макросом подключиться к MSSQL Server'у,находящемуся на RDP следующим кодом:
Код
Sub Test()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    
    cn.ConnectionString = "Provider=SQLOLEDB.1;Password="пароль_к_бд";Persist Security Info=True;User ID="логин_пользователя_бд";Initial Catalog="название_базы";Data Source="название_сервера",1433"
    cn.Open
    cn.Close
    Set cn = Nothing
    
End Sub
Безрезультатно, ошибка: "Сервер не существует или доступ запрещён".
Но сервер существует и доступ разрешён.
Грешу на ошибку в коде макроса,но не понимаю,куда смотреть.

Хочется импортировать из БД данные и экспортировать обратно,но даже подключение создать не выходит.
Если была тема коннекта к sql-серверу на rdp - прошу прощения,именно к rdp не нашёл.

С программированием как таковым знаком слабо, сильно просьба не бить.
Страницы: 1
Loading...