Добрый день. Возникла необходимость подключиться к MSSQL 2005 EXPRESS из 1с 7.7 и с помощью запроса вытянуть информацию. В 8.2 я это делал. В 7.7 столкнулся с некоторыми трудностями. Не могли бы вы скинуть пример подключения или указать место где копать?

простой запрос на ado и привет.

что имеено за данные нужно получить ?

Информацию о расходных документах. Буду получать с помощью SQL запроса, он уже готов, теперь нужно понять как его передать.

Попытался портировать код из 8.2
   
ТаблицаЗагрузки=СоздатьОбъект(" ТаблицаЗначений");
   ServerName=СокрЛП("192.168.2.57");    //имя или IP-адрес сервера
   DSN=СокрЛП("SWE_Monblan");        //имя базы данных
   UID=СокрЛП("sa");    //логин пользователя
   PWD=СокрЛП("sasasa");                //пароль
   
   ConnectString="Provider=SQLOLEDB;Data Source="+ServerName+";DatabaseName="+DSN+";Initial Catalog="+DSN+";UID="+UID+";PWD="+PWD;
   Соединение=СоздатьОбъект COMОбъект("ADODB.Connection");
   Соединение.ConnectionTimeOut=600;
   Попытка              
       Соединение.Open(ConnectString);
   Исключение
       Предупреждение("Не удалось соединиться с базой данных!");
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
   
   Cmd=СоздатьОбъект COMОбъект("ADODB.Command");
   Rs=СоздатьОбъект COMОбъект("ADODB.RecordSet");
   Cmd.ActiveConnection=Соединение;
   Cmd.CommandTimeOut=600;
   Cmd.CommandType=1;    //запрос на языке SQL
                                                               
   ТекстЗапроса="SET NOCOUNT ON exec dbo.swra_Sales_Desktop @Date_From="+"'"+Формат(ДатаНачалаПроверки,"ДФ=ггггММдд")+"', @Date_To="+"'"+Формат(ДатаКонцаПроверки,"ДФ=ггггММдд")+"'";
   
   Cmd.Commandtext=СокрЛП(ТекстЗапроса);
   Попытка
       Rs.ActiveConnection=Соединение;
       Rs=Cmd.Execute();
   Исключение
       Сообщить(ОписаниеОшибки());  
       
   КонецПопытки;
   
   КоличествоПолей=Rs.Fields.Count();
   Попытка
       for i = 0 to RS.Fields.Count - 1 do //Создание и добавление колонок
           ColumnName = RS.Fields.Item(i).Name;
           ColumnName=СтрЗаменить(ColumnName,",","");
           ColumnName=СтрЗаменить(ColumnName," ","");
           ColumnName=СтрЗаменить(ColumnName,".","");
           ColumnName=СтрЗаменить(ColumnName,"-","");
           ТаблицаЗагрузки.Колонки.Добавить(ColumnName);
       enddo;
       
       while RS.EOF = 0 do // Заполнение созданной таблицы
           ТаблицаЗагрузки.Добавить();
           for НомерСтолбца = 0 По RS.Fields.Count - 1 do
               ТаблицаЗагрузки.Установить(НомерСтолбца,RS.Fields(НомерСтолбца).Value);
           enddo;
           RS.MoveNext();
       enddo;  
   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
   
   Rs.Close();
   Соединение.Close();

(4) И что не получается?

СоздатьОбъект COMОбъект  
готично.. что за адская помесь снеговика с клюшками ?

ТаблицаЗагрузки.Колонки.Добавить(ColumnName);

гы-гы-гы... Позови специалиста!

Писал в основном на 8. 7 знаю поверхностно. Если укажите на ошибки буду очень признателен.

(7) Я к специалистам здесь и обратился.

СоздатьОбъект COMОбъект("ADODB.Connection"); -> СоздатьОбъект ("ADODB.Connection");

ТаблицаЗагрузки.Колонки.Добавить(ColumnName); - в семерке это не работает. Нужно через ТаблицаЗагрузки.НоваяКолонка();

Формат(ДатаКонцаПроверки,"ДФ=ггггММдд") - нет в семерки ДФ

Открывай СП и читай.

(10,11) Огромнейшее спасибо. Сейчас попробую.

ТаблицаЗагрузки.Добавить(); -> ТаблицаЗагрузки.НоваяСтрока()

Может еще что просмотрел... Перевести 60 строчек на 7.7 - вообще ни о чем разговор...

Было дело с делфей портировал, вот это было дело! Вот где мозг трещал по швам. :)