Решаю задачу выполнения резервного копирования базы в MSSQL с отображением прогресса в форме (асинхронно). Решаю долго и мучительно. Пока не успешно. Ниже код через ADODB

ADODBCommand.CommandText = "BACKUP DATABASE TO DISK='my.bak' WITH STATS=10";
Options = adAsyncExecute + adExecuteNoRecords"; // 16 + 128
ADODBCommand.Execute(RecordsAffected, Null, Options);
Пока ADODBCommand.State = 4 Цикл
    ПаузаИис(1);
    Если ADODBCommand.ActiveConnection.Errors.Count > 0 Тогда
    Сообщить(ADODBCommand.ActiveConnection.Errors.Count);
    КонецЕсли;
КонецЦикла;

Асинхронно процесс выполняется, но прогресс в виде текстовых сообщений в свойстве Errors появляется только после завершения выполнения команды (когда ADODBCommand.State = 0). И даже тогда он появляется только в количестве 1 сообщение (первый вывод прогресса).

На sql.ru уже порылся.
http://www.sql.ru/forum/731198/tadocommand-v-asinhronnom-rezhime

Если подключить обработчик события ADODB.Connection.InfoMessage, то он вызывается опять же только после завершения выполнения команды и ровно 3 раза всегда с одним и тем же сообщением прогресса.

ms sql profiler вам поможет. либо наведет на правильную строку поиска

http://dev.citykirov.ru/
Обработка ВосстановлениеБД. Там это есть. Глянь.
Написана давным давно, проблем с получением прогресса при бекапе вроде у меня не было.

смотри в типовых

ДлительныеОперации.СообщитьПрогресс(Всего, мТекущийАдрес)

(3) Касперский на этот сайт выругался. Можешь кинуть на почту или файлообменник?

(5)отправил по почте

// Регистрирует в сообщениях информацию о ходе выполнения фонового задания.
//   В дальнейшем эту информацию можно считать с клиента при помощи функции ПрочитатьПрогресс.
//
// Параметры:
//  Процент - Число  - Необязательный. Процент выполнения.
//  Текст   - Строка - Необязательный. Информация о текущей операции.
//  ДополнительныеПараметры - Произвольный - Необязательный. Любая дополнительная информация,
//      которую необходимо передать на клиент. Значение должно быть простым (сериализуемым в XML строку).
//
Процедура СообщитьПрогресс(Знач Процент = Неопределено, Знач Текст = Неопределено, Знач ДополнительныеПараметры = Неопределено) Экспорт
    
    ПередаваемоеЗначение = Новый Структура;
    Если Процент <> Неопределено Тогда
        ПередаваемоеЗначение.Вставить("Процент", Процент);
    КонецЕсли;
    Если Текст <> Неопределено Тогда
        ПередаваемоеЗначение.Вставить("Текст", Текст);
    КонецЕсли;
    Если ДополнительныеПараметры <> Неопределено Тогда
        ПередаваемоеЗначение.Вставить("ДополнительныеПараметры", ДополнительныеПараметры);
    КонецЕсли;
    
    ПередаваемыйТекст = ОбщегоНазначения.ЗначениеВСтрокуXML(ПередаваемоеЗначение);
    
    Сообщение = Новый СообщениеПользователю;
    Сообщение.Текст = ПередаваемыйТекст;
    Сообщение.Сообщить();
    
КонецПроцедуры

// Находит фоновое задание и считывает из его сообщений информацию о ходе выполнения.
//
// Возвращаемое значение:
//   Структура - Информация о ходе выполнения фонового задания.
//       Ключи и значения структуры соответствуют именам и значениям параметров процедуры СообщитьПрогресс().
//
Функция ПрочитатьПрогресс(Знач ИдентификаторЗадания) Экспорт
    Перем Результат;
    
    Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдентификаторЗадания);
    Если Задание = Неопределено Тогда
        Возврат Результат;
    КонецЕсли;
    
    МассивСообщений = Задание.ПолучитьСообщенияПользователю(Истина);
    Если МассивСообщений = Неопределено Тогда
        Возврат Результат;
    КонецЕсли;
    
    Количество = МассивСообщений.Количество();
    
    Для Номер = 1 По Количество Цикл
        ОбратныйИндекс = Количество - Номер;
        Сообщение = МассивСообщений[ОбратныйИндекс];
        
        Результат = ОбщегоНазначения.ЗначениеИзСтрокиXML(Сообщение.Текст);
        Прервать;
    КонецЦикла;
    
    Возврат Результат;
КонецФункции

(4) (7) Проблема не в регистрации/отображении, а в асинхронном получении информации о прогрессе от MSSQL через ADODB

(6) Спасибо. Оказалось, что проблема с получением сообщений о прогрессе по ходу выполнения команды была из-за CursorLocation, который в моем случае был 3 (клиент), а нужно было 2 (сервер).

Похоже при асинхронном вызове Execute() все таки получать прогресс нельзя. При синхронном работает такой способ

            RS = Connection.Execute(ТекстЗапроса);
            Пока RS<>Неопределено Цикл
                Warning = Connection.Errors(0);
                Если Warning.NativeError=3211 Тогда
                    ТекстСообщения = Warning.Description;
                    ИндикаторВыполнения = Число(Лев(ТекстСообщения, Найти(ТекстСообщения, " ")-1));
                КонецЕсли;
                RS = RS.NextRecordset();
            КонецЦикла;

Сомневаюсь, что можно дбиться желаемого через ADODB.

(10)при асинхронном надо через события работать

(12) Пробовал. Не помогает (1)

(13)а если ExecuteComplete обрабатывать, а не InfoMessage?

(14) Судя по описанию, должно получиться. Но пока сделал синхронно и с частыми обновлениями работает приемлемо.

(10) а при таком способе проц не грузит на 100%?

(16) Вызов NextRecordset ждет получения очередного результата (сообщения о прогрессе). Процессор он не грузит, т.к. это синхронный внешний вызов. Поэтому их будет столько, сколько сообщений с прогрессом выдаст сервер.

При расположении курсора на сервере выполнение Rd1.NextRecordSet закрывает Rd1. А мне нужно чтобы он оставался открытым. При расположении курсора на клиенте ADODB.COMMAND.Execute() сначала ждет получения всех recordset'ов и только потом возвращает управление.

(18) покажи конечный код

РезультатЗапроса = ОбъектЗапрос.Execute(); // Тут ждет последнего результата при CursorLocation = 3
    лРезультат = РезультатЗапроса;
    Пока лРезультат <> Неопределено Цикл
        РезультатЗапроса = лРезультат;
        Если СоединениеADO.Errors.Count > 0 Тогда
            Сообщение = СоединениеADO.Errors(0);
            Если Сообщение.NativeError = 3211 Тогда
                Сообщить(Сообщение.Description);
            КонецЕсли;
        КонецЕсли;
        лРезультат = РезультатЗапроса.NextRecordset(); // После выполнения этой строки при CursorLocation = 2 (сервер) объект в РезультатЗапроса закрывается
    КонецЦикла;
    КоличествоСтрок = РезультатЗапроса.RecordCount; // Тут ошибка при CursorLocation = 2

>>А мне нужно чтобы он оставался открытым.
>>КоличествоСтрок = РезультатЗапроса.RecordCount

Мы восстанавливаем/бекапим базу, количество каких строк (чорт побери) хочется узнать при этом? :)

RecordCount - это свойство доступно только при DML запросах (количество обработанных строк).

Клиентский курсор имеет смысл только для DSL запросах (select), и по сути при помощи библиотеки курсоров загружает в память все что вернул сервер и позволяет потом бегать туда сюда по выборке. Что на самом деле малоэффективная и малоприменимая штука (щас это уже никому не надо, ни кто не применяет).

DML это insert,update,delete

(21) У меня универсальная функция. Поэтому мне нужно обеспечить ее работу в большом числе ситуаций. Снижение ее универсальности повлечет обширные изменения.

В общем добавил в свою функцию параметр отвечающий за обновление прогресса вместе с выполнением NextRecordset, а получение последнего RecordSet для D*L запросов придется теперь делать снаружи этой функции.