Эффективный алгоритм выгрузки Recordset в Word

[ger_kar]

Задача - необходимо выгрузить ADODB.Recordset в таблицу MS Word с максимальной эффективностью в плане производительности
Собственно стандартный алгоритм перебирать по очереди ячейки таблицы и соответствующие поля и записи рекордсета и переносить данные в Word является просто чудовищно непроизводительным и жутко медленным и при большом количестве записей рекордсета такой алгоритм не годится.
Нужен алгоритм по эффективнее. Может будут идеи?

[FireFenix]

еребирать по очереди ячейки таблицы и соответствующие поля и записи рекордсета и переносить данные в Word является просто чудовищно непроизводительным и жутко медленным

Да ладно! Любой вывод нормальной базы данных свыше 1Гига будет очень долго.

Нужен алгоритм по эффективнее. Может будут идеи?

Формировать самому таблицу и заполнять её данными из БД

А лучше напрямую из БД экспортировать в csv или другой формат. Excel понимает csv

[ger_kar]

Да ладно! Любой вывод нормальной базы данных свыше 1Гига будет очень долго

Да если речь от такой большой базе. Но тут речь о базе на порядок меньше. Скажем так, что среднее количество экспортируемых записей рекордсета будет составлять примерно 10 - 30 тысяч.

А лучше напрямую из БД экспортировать в csv или другой формат. Excel понимает csv

Тут проблема с экспортом именно в Word. При экспорте в Excel такой проблемы не стоит и данные экспортируются с приемлемой скоростью. Но требования заказчика сделать вывод и в Word и в Excel.

Формировать самому таблицу и заполнять её данными из БД

В смысле самостоятельно формировать вордовскую таблицу с заполненными данными и потом открыв документ Word разом вставить сформированную таблицу. Несомненно так бы было быстрее, но я не имею не малейшего понятия как можно такое проделать. Для начала нужно узнать структуру вордовской таблицы в памяти, а уж потом...

Может сделать по другому? Например сделать шаблон документа с макросом, который бы и занимался этой работой, а для экспорта из БД просто активировать этот шаблон и макрос и передавать ему ссылку на рекордсет?

[FireFenix]

Для начала нужно узнать структуру вордовской таблицы в памяти, а уж потом..

Чё?

http://ru.wikipedia.org/wiki/Visual_Studio_Tools_for_Office
+

Код: Выделить всё

Set Table = ActiveDocument.Tables.Add

+

Код: Выделить всё

For i = 1 To 100500
    For j = 1 To 100500
        Table.Rows(i).Cells(j).Range.Text = "Text"


И пошёл

[ger_kar]

То что ты предлагаешь собственно и есть стандарный алгоритм о котором я писал

Собственно стандартный алгоритм перебирать по очереди ячейки таблицы и соответствующие поля и записи рекордсета и переносить данные в Word

И который меня как раз и не устраивает. Если такой алгоритм запустить в виде макроса VBA то результат по времени еще более менее приемлимый, но если общение с вордом происходит из стороннего процесса, т.е. приложения на VB то скорость экспорта просто аховая и кроме разочарование ничего не возникает.
Говоря про формирование таблицы я имел ввиду не использование стандартной объектной модели ворда. А самостоятельное формирование таблицы (в это время ворд вообще не запущен) в процессе своего приложения, а потом подключить ворд и вставить готовую таблицу одним махом.

[NashRus]

Формируй документ в формате HTML и открывай его в Word'e.

[Sam777e]

1. Пробуй, пользуйся.

Я формирую Recordset, а ты работай со своим; и, конечно, не Selection, а какой-нибудь Bookmark из Документа.

Желательно еще отключать / включать Автосохранение.

После создания таблицы форматируй ее и подумай о возвращении параметров Word'а в прежнее состояние.

Главные местa

V = Recordset.GetString

и

With anyRange
.InsertAfter anyRecordsetValue
.ConvertToTable
End With


2. Второй способ. Держи невидимый Excel, туда выгружай свой объект, а потом он очень быстро и легко вставляется в Word: в Excel выделяешь, копируешь, в Word вставляешь. Попробуй, сам увидишь нужный код.

Все делал в Windows XP SP2, Office 2000.

[ger_kar]

Желательно еще отключать / включать Автосохранение

Ну это да, а кроме этого желательно и проверку орфографических и грамматических ошибок отключать.

Главное место With anyRange .InsertAfter anyRecordsetValue .ConvertToTable End With

Я конечно тоже пытался вставить весь рекордсет махом в таблицу, но у меня так ничего и не вышло. А вставлять сначала рекордсет а потом превращать его в таблицу я не догадался. А идея хорошая. Сейчас буду пробовать. Также попробую вариант с Excel и с HTML, как предложил NashRus.
Спасибо.

[NashRus]

Я не предлагал с Excel!
Я говорил о том, что нужно сформировать HTML и тем или иным образом открыть его в Word'e.
Это самое простое и быстрое.

Далее идет самостоятельное формирование doc или docx своими силами или с помощью сторонних в основном платных компонент.

[ger_kar]

Попробовал метод Sam777e - 300 страниц вставляется за несколько секунд (что-то около 5) вместо 3 минут если действовать по стандартному алгоритму. Единственное, придется сделать еще один рекордсет, так как в прежнем избыточная информация фильтровалось выбором нужных полей, а по этому методу весь рекордсет вставляется как есть.