Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / 1С 7.7 VPN соединение / 16 сообщений из 16, страница 1 из 1
13.10.2011, 11:38
    #37480267
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Добрый день!
Существует некая самописная конфигурация на 1С 7.7 sql версия. Необходимо в нее закачивать данные из таблиц sql удаленного сервера. Создано VPN соединение. Нужно по данному VPN подключиться к sql серверу по локальному адресу и запустить на исполнение программу. Вся проблема в том, что не очень хорошо понимаю как сделать это подключение. Большая просьба оказать помощь.
...
Рейтинг: 0 / 0
13.10.2011, 11:39
    #37480269
Zerro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Lana_SVДобрый день!
Существует некая самописная конфигурация на 1С 7.7 sql версия. Необходимо в нее закачивать данные из таблиц sql удаленного сервера. Создано VPN соединение. Нужно по данному VPN подключиться к sql серверу по локальному адресу и запустить на исполнение программу. Вся проблема в том, что не очень хорошо понимаю как сделать это подключение. Большая просьба оказать помощь.
куча примеров в топике -как загрузить из/в скуль 1с. а впн для 1с прозрачна -тебе главное знать имя или айпи сервера.
...
Рейтинг: 0 / 0
13.10.2011, 11:56
    #37480305
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Zerro,
Я смотрела форум, своего случая я не нашла, может что-то не так понимаю. Делаю подключение к vpn

ПРоцедура УстановитьСвязьССервером()
SqlSrv = CreateObject("ADODB.Connection");
SqlSrv.ConnectionTimeout = ConnectionTimeout;
SqlSrv.CommandTimeout = CommandTimeout;

ConnectionString = "FileDSN="+сокрЛП(DSN)+";UID="+СокрЛП(UID)+";PWD="+ СокрЛП(PWD)+";APP="+APP;
SqlSrv.ConnectionString = ConnectionString;

Попытка
SqlSrv.Open();
сообщить("Соединение установлено");
Исключение
сообщить("При соединение произошла ошибка ("+ОписаниеОшибки()+")");
КонецПопытки;

КонецПроцедуры


ConnectionTimeout =15 ;
CommandTimeout =600 ;

//
DSN="\\host\d\Base.1c\1creplication_v.dsn";
UID="Product";
APP="1С";
PWD="ProductVita";

Не могу понять как теперь подключиться к локальному sql-серверу
...
Рейтинг: 0 / 0
13.10.2011, 14:39
    #37480771
Last1Cmen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
linked may be ?
...
Рейтинг: 0 / 0
13.10.2011, 16:10
    #37481051
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Last1Cmen,
Весь вопрос в том, можно ли подключать VPN из 1С? Подключить, забрать данные с нужного сервера и разорвать VPN?
...
Рейтинг: 0 / 0
13.10.2011, 16:16
    #37481071
Kreontsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
VPN - это только тунель, его не надо вручную устанавливать, он "сам поднимается" при обращении к нужному узлу по другую сторону впна.
...
Рейтинг: 0 / 0
13.10.2011, 16:25
    #37481113
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Kreontsa,
Дело в том, что нам не нужен этот VPN. Данные будут забираться не так часто, и не очень хорошо, если это соединение будет все время висеть. Настраивать его каждый раз перед очередым забором тоже не есть хорошо. Вот поэтому встал вопрос о подключении VPN через 1С
...
Рейтинг: 0 / 0
13.10.2011, 17:51
    #37481343
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
И возник еще один насущный вопрос. Подскажите ..... Подключаюсь к удаленному серверу, запускаю определенную процедуру на исполнение: RS.Open("exec sp_StoreReport1C -1, 2011, 10"), получаю ответ. Теперь вопрос: как к уже полученным данным сделать еще один select?

SqlSrv = CreateObject("ADODB.Connection");
SqlSrv.ConnectionTimeout = ConnectionTimeout;
SqlSrv.CommandTimeout = CommandTimeout;

ConnectionString = "FileDSN="+СокрЛП(DSN)+";UID="+СокрЛП(UID)+";PWD="+ СокрЛП(PWD)+";APP="+APP;
SqlSrv.ConnectionString = ConnectionString;

Попытка
SqlSrv.Open();
Сообщить("Соединение с сервером успешно установлено.");
исключение
Сообщить("При установлении соединения с сервером возникли ошибки! ("+ОписаниеОшибки()+")");
Возврат;
КонецПопытки;

RS = CreateObject("ADODB.Recordset");
RS.ActiveConnection = SqlSrv;
RS.CursorType = 1;
RS.LockType = 4;


RS.Open("exec sp_StoreReport1C -1, 2011, 10");
...
Рейтинг: 0 / 0
14.10.2011, 07:05
    #37481759
Zerro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Lana_SVИ возник еще один насущный вопрос. Подскажите ..... Подключаюсь к удаленному серверу, запускаю определенную процедуру на исполнение: RS.Open("exec sp_StoreReport1C -1, 2011, 10"), получаю ответ. Теперь вопрос: как к уже полученным данным сделать еще один select?

SqlSrv = CreateObject("ADODB.Connection");
SqlSrv.ConnectionTimeout = ConnectionTimeout;
SqlSrv.CommandTimeout = CommandTimeout;

ConnectionString = "FileDSN="+СокрЛП(DSN)+";UID="+СокрЛП(UID)+";PWD="+ СокрЛП(PWD)+";APP="+APP;
SqlSrv.ConnectionString = ConnectionString;

Попытка
SqlSrv.Open();
Сообщить("Соединение с сервером успешно установлено.");
исключение
Сообщить("При установлении соединения с сервером возникли ошибки! ("+ОписаниеОшибки()+")");
Возврат;
КонецПопытки;

RS = CreateObject("ADODB.Recordset");
RS.ActiveConnection = SqlSrv;
RS.CursorType = 1;
RS.LockType = 4;


RS.Open("exec sp_StoreReport1C -1, 2011, 10");
тут же не закрывая соединеения делай хоть 500селектов..или я что то не понимаю?
...
Рейтинг: 0 / 0
14.10.2011, 09:54
    #37481898
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
не понимаешь
она хочет селект из селекта
...
Рейтинг: 0 / 0
14.10.2011, 10:13
    #37481924
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
sWinTyz,
Да, правильно, селект из селекта. Это возможно? Пока все мои попытки это воплотить не дали результата
...
Рейтинг: 0 / 0
14.10.2011, 10:36
    #37481969
DmitriyZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
Lana_SVsWinTyz,
Да, правильно, селект из селекта. Это возможно? Пока все мои попытки это воплотить не дали результата это можно сделать двумя способами:
1) Сказать, что бы переписали хранимую процедуру, что бы она возвращала готовый набор.
2) Обойти набор и при обходе фильтровать уже как угодно.
...
Рейтинг: 0 / 0
14.10.2011, 10:45
    #37481994
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
DmitriyZ,
А других вариантов нет? Процедура, получает довольно сложный отчет, он необходим в другом месте именно в таком виде. Делать еще одну процедуру, никто в ближайшем будущем не будет. Обойти ее и напрямую брать данные тоже не вариант. Т.к. это не просто селект к таблице
...
Рейтинг: 0 / 0
14.10.2011, 10:46
    #37481995
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
DmitriyZ,
Сейчас не вижу другого выхода, как запихивать результат в таблицу и уже ее обрабатывать
...
Рейтинг: 0 / 0
14.10.2011, 10:50
    #37482001
rigus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
А вчем собственно проблема то
Результат EXEC вствляйте во временную таблицу или табличную переменную и делайте свой запрос.
Что то типа
SET NOCOUNT ON
declare @t table(t1 int,t2 int,t3 int)
insert into @t exec sp_StoreReport1C -1, 2011, 10
select t1 from @t where t2=123
...
Рейтинг: 0 / 0
14.10.2011, 12:30
    #37482229
Lana_SV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С 7.7 VPN соединение
rigus,
спасибо! разобралась!
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / 1С 7.7 VPN соединение / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]