по разным соображениям не хочется прописывать строку явно в коде: надо переписывать при подключении к другой базе, безопасность...

  с=СоздатьОбъект("DataLinks");
  с.PromptEdit(Connect);
  СтрокаСоединенияСБазой=с.ConnectionString;

Function XOR(Val ParA, Val ParB)
  Res = 0;
  Koef = 1;
  For BitNumber = 1 To 8 Do
    BitA = ParA % 2;
    BitB = ParB % 2;
    ParA = Int(ParA / 2);
    ParB = Int(ParB / 2);
    BitC = (BitA + BitB) % 2;
    Res = Res + BitC * Koef;
    Koef = Koef * 2;
  EndDo;
  Return Res;
EndFunction
//*****
Procedure OnOpen()
Var CurDir, SQLKeyCode[36], ConnectCode[200];
  FilePath(CurDir);
  ConnectFile = IBDir() + "1Cv7.DBA";
  If FS.ExistFile(ConnectFile) = 0 Then
    Message("Это не SQL - база!", "!");
    Form.Close();
    Return;
  EndIF;
  FSO = CreateObject("Scripting.FileSystemObject");
  F = FSO.OpenTextFile(ConnectFile, 1);
  ConnectLen = 0;
  While F.AtEndOfLine = 0 Do
    ConnectLen = ConnectLen + 1;
    ConnectCode[ConnectLen] = Asc(F.Read(1));
  EndDo;
  F.Close();
  FSO = 0;
  SQLKey = "19465912879oiuxc ensdfaiuo3i73798kjl";
  For i = 1 To 36 Do
    SQLKeyCode[i] = Asc(Сред(SQLKey, i, 1));
  EndDo;
  Connect = "";
  For i = 1 To ConnectLen Do
    Connect = Connect + Chr(XOR(ConnectCode[i], SQLKeyCode[(i - 1) % 36 + 1]));
  EndDo;
  Message(Connect);
EndProcedure

(1),(2) спасибо
только вот незадача, как в (1) получить "connect",
а в (2) непонятно куда это прицепить в 1С
:)

Ой, не смотри ты на (1). Но если интересно, то надо вот так:
Connect=СоздатьОбъект("adodb.connection");
+(1)
еще раз сорри за тупняк.

(3) Вообще-то это на языке 1с :-)) И цепляй куда надо :-)))))))))

(4) Вы меня наверно не так поняли,
у меня есть SQL-ные базы, рабочая, тестовые. мне хочется использовать прямые запросы через ADO для отчетов. чтоб соединится с SQL надо писать строку соединения,
нельзя ли получить строку из текущего соединения 1С?
может я что то неправильно говорю, я пока не силен в этом

(6) :)
после Вашего кода я написал:
  Соединение = СоздатьОбъект("ADODB.Connection");
  Попытка Соединение.Open(Connect);
    Предупреждение("ОК");
  Исключение
    Предупреждение("Невозможно установить соединение");
    Возврат;
  КонецПопытки;
пишет что невозможно установить соединение, что то не так :(

(5) Читать (2). Если это работает - это то, что тебе надо: дешифрует файл 1cv7.dba и выводит информацию о сервере, базе, логине и пароле, через которые работает 1С.

(8)
    Connect=СоздатьОбъект("adodb.connection");
  с=СоздатьОбъект("DataLinks");
  с.PromptEdit(Connect);
  СтрокаСоединенияСБазой=с.ConnectionString;
  
После с.PromptEdit(Connect); у меня вызывается некое диалоговое окно... :) а хотелось бы получить строку текущего соединения, но все равно спасибо, интересно

(7)
  Connect=СтрЗаменить(Connect,"""},{""",";");
  Connect=СтрЗаменить(Connect,"{{""","");
  Connect=СтрЗаменить(Connect,"""}}","");
  Connect=СтрЗаменить(Connect,""",""","=");
Соединение = СоздатьОбъект("ADODB.Connection");
  Попытка Соединение.Open("Driver=SQL Server;"+Connect);
    Предупреждение("ОК");
  Исключение
    Предупреждение("Невозможно установить соединение");
    Возврат;
  КонецПопытки;

(10) В итоге получилась строка:
"Driver=SQL Server;Server=ps-3;DB=RTest;UID=Rob"
не получается соединения, хоть ты тресни!
может пароля не хватает?

(11)Если проблемы со строкой соединения, тебе сюда: http://www.connectionstrings.com/

(11)Значит (2) криво работает...

(13) (2) придумал не я, кто-то прислал мне энту обработку...
Я обычно делаю так
Сервер = ConSQL.GetParam(КаталогБазы,"server");
База = ConSQL.GetParam(КаталогБазы,"base");
Пользователь = ConSQL.GetParam(КаталогБазы,"uid");
Пароль = ConSQL.GetParam(КаталогБазы,"psw");
СтрСоединения=""""+ConSQL.GetConnectStr(КаталогБазы)+"""";
используя ConnectSQL

как вариант ...
Пуск-Настройка-ПУ
Администрирование - Источники данных
Files DSN создаем что надо и смотрим строку наш файлик

(14) а что за объект ConSQL, если не секрет )?

Я тут что-то торможу. 1С подключается к SQL через ODBC? А в вопросе было - как подключиться через ADO? Ведь это не одно и тоже?

(16)
Библиотека ConnectSQL.
Описание.
Библиотека предназначена для расшифровки файла-описания подключения к SQL-серверу 1Cv7.dba. Библиотека раелизует алгоритм программы unsql. Просто мне показалось несколько неудобным, что параметры возвращаются в виде файла, который будет лежать на диске, и к нему будет доступ всем желающим. Функция из этой библиотеки возвращает в строковом виде один из четырех параметров необходимых для соединения с SQL-сервером.
(17) а ADO через ODBC сама работает :-)))))))

(17) да, я спрашивал как получить строку для подключения через ADO, т.е. надо каким то образом из текущего подключения 1С получить сервер, базу, пользователя, пароль

(18) не подскажете где взять упомянутую библиотеку и подключить к 1С?

(18)Т.е. ты хочешь сказать, что ConnectionString для работы через ADO и для работы через ODBC - одна и та же?

(20) могу прислать
(21) да

(22) нашел) надо регистрировать( Получается надо регистрировать на всех машинах сети?

(19)Где посмотреть какая должна быть строка подключения я тебе написал в (12). Пользователь в 1С с точки зрения SQL - один. Он же является владельцем базы 1С (Data Base Owner - DBO). Очень часто это - sa.

(23) А зачем? База на сервере? Вот там и регистри и запускай. Прописывай в константу (хоть каждые полчаса) :-)

(25) спасибо. но честно говоря как то не слишком удобно получается, надо заводить константу, заполнять, только после этого можно прописывать в отчетах и соединятся с сервером... как то извращенчески :)))

(26) Все удобней, чем перелопачивать _все_ отчеты, в случае, если решитесь поставить на sa пароль, или вообще сделать trusted connection

В принципе, можно и без ВК корректно dba распотрошить...

(2) Может работать некорректно, так как файл dba может после содержать нетекстовые символы и Scripting.FileSystemObject не отработает с ним. Скорее всего, это выразится в том, что файл прочитается на полностью.
То есть с dba надо работать как в двоичным файлом.

(30) в моем случае именно так и произошло, пользователь обрезался, пароля вообще не было, нет ли у Вас более грамотного разбора файла dba из 1С?

(31) http://v7backup.narod.ru - исходник на VBS. Там есть расшифровка и разбор файла - все работает. Надо на 1С переписать.
Пользуясь случаем, выражаю признательность Gloom'у за помощь, которую он мне оказал при разработке этого куска.

2(32) А как в 1С без ВК корректно прочитать двоичный файл?

мне это в ближайшее время не под силу (переписать на 1С тексты VBS).
Но все равно спасибо за участие:)

2 (33) Да так же, как и на VB Script, наверно :)

ConnectString="Driver={SQL Server};Server=192.168.10.115;Database=sklad;Trusted_Connection=yes";

2(35) Понял. Наверное и (2) должно заработать без проблем, если переписать чтение dba через ADODB.Stream.
ЗЫ. Вообще говоря, даже не ясно что хуже с точки зрения безопасности (именно это упоминается в сабже) - наличие в коде в открытом виде секретной информации или алгоритма её расшифровки ;)

(37)
"Вообще говоря, даже не ясно что хуже с точки зрения безопасности ..." - "Эт, точно" © тов. Сухов
ЗЫ. Чтобы (2) работало, надо одно слово исправить...

(38) у меня не работает, если "Scripting.FileSystemObject"->"ADODB.Stream"

(39)Я сказал одно слово, а у тебя два...

насчет безопасности, раз эта информация хранится в dba и ее можно расшифровать, причем в интернете есть готовые программы по расшифровке, это уже не секретная информация. для меня важно чтобы не надо было переписывать код при работе с разными базами.

(40) чтоже это за слово, не томи пжалста!)

похоже не судьба дождаться ответа)...

(43) Я верю, что Gloom ответит - он слов на ветер не бросает. Просто ему некогда, наверно - работа от участвия в форуме отвлекает или еще что...

Всем спасибо за участие, я нашел что хотел, кому интересно:
Function XOR(Val ParA, Val ParB)
  Res = 0;
  Koef = 1;
  For BitNumber = 1 To 8 Do
    BitA = ParA % 2;
    BitB = ParB % 2;
    ParA = Int(ParA / 2);
    ParB = Int(ParB / 2);
    BitC = (BitA + BitB) % 2;
    Res = Res + BitC * Koef;
    Koef = Koef * 2;
  EndDo;
  Return Res;
EndFunction
//*****
Функция ПолучитьСтрокуСоединения()
Var CurDir, SQLKeyCode[36], ConnectCode[200];
  FilePath(CurDir);
  ConnectFile = IBDir() + "1Cv7.DBA";
  If FS.ExistFile(ConnectFile) = 0 Then
    Сообщить("Это не SQL - база!", "!");
    Return 0;
  EndIF;
  FSO = CreateObject("Scripting.FileSystemObject");
  F = FSO.OpenTextFile(ConnectFile, 1);
  ConnectLen = 0;
  While F.AtEndOfStream = 0 Do
    While F.AtEndOfLine = 0 Do
      ConnectLen = ConnectLen + 1;
      ConnectCode[ConnectLen] = Asc(F.Read(1));
    EndDo;
    If F.AtEndOfStream = 0 Then
      F.SkipLine();
      ConnectLen = ConnectLen + 1;
      ConnectCode[ConnectLen] = 10;
    EndIf;
  EndDo;
  F.Close();
  FSO = 0;
  SQLKey = "19465912879oiuxc ensdfaiuo3i73798kjl";
  For i = 1 To 36 Do
    SQLKeyCode[i] = Asc(Сред(SQLKey, i, 1));
  EndDo;
  Connect = "";
  For i = 1 To ConnectLen Do
    Connect = Connect + Chr(XOR(ConnectCode[i], SQLKeyCode[(i - 1) % 36 + 1]));
  EndDo;
  Connect=СтрЗаменить(Connect,"""},{""",";");
  Connect=СтрЗаменить(Connect,"{{""","");
  Connect=СтрЗаменить(Connect,"""}}","");
  Connect=СтрЗаменить(Connect,""",""","=");
    Возврат "Driver=SQL Server;"+Connect;
КонецФункции
//*******************************************
Процедура Сформировать()
    стрКон=ПолучитьСтрокуСоединения();
  Соединение = СоздатьОбъект("ADODB.Connection");
  Соединение.ConnectionTimeOut=20;
  Соединение.CursorLocation=3;
    Попытка
    Соединение.Open(стрКон);
    Предупреждение("Удалось установить соединение");
  Исключение
    Предупреждение("Невозможно установить соединение");
    Возврат;
  КонецПопытки;
КонецПроцедуры
//*******************************************

(45)Молоток!
Правда, достаточно было в (2) AtEndOfLine на AtEndOfStream исправить...