![]() |
|
Модераторы: Akina |
![]()
|
|
| swetik1981 |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 117 Регистрация: 20.12.2007 Репутация: нет Всего: нет |
Как сохранять в базе данных содержимое Word-документа со всем форматированием. Как ни пробую, сохраняется только сам текст без форматирования.
|
|||
|
||||
| Данкинг |
|
|||
![]() Yersinia pestis ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
1. В какой базе данных? СУБД какая?
2. При чём тут конкретно VB ? -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Сохранять RTF-документ в поле МЕМО.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| swetik1981 |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 117 Регистрация: 20.12.2007 Репутация: нет Всего: нет |
То, что в поле MEMO - это понятно. Но вот как сохранить, чтобы не терялось форматирование (сохраняется только текст документа).
VB здесь при том, что доступ к документу осуществляется из программы, созданной на VB. |
|||
|
||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Ещё раз повторяю - в RTF. Не .Text, а .RTFText. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| swetik1981 |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 117 Регистрация: 20.12.2007 Репутация: нет Всего: нет |
Вы видимо имели в виду .textRTF?
Это не то, я работаю без Rich Text Box. Чтобы было понятно, что мне надо, коротенький кусочек кода - чрезвычайно упрощённый вариант моей проги: Имею Word-документ "C:/test.doc" Имею базу данных "C:/text.mdb", c одной таблицей "Docs", в котором два поля: "dName" (строка) и "dMemo" (мемо-поле) c единственной записью, в которой dName="test" Имею форму на VB с кнопкой Сommand1 Собствено код: Private Sub Command1_Click() Set wdApp = CreateObject("Word.Application") Set saveDoc=wdApp.documents.open("C:/test.doc") textDoc=saveDoc.content SQLStrok = "UPDATE Docs SET dMemo='" + textDoc + "' WHERE dName='test';" Call ToDB (SQLStrok) End Sub Sub ToDB (SQLStrok) - подпрограмма работы с базой данных, код которой приводить здесь смысла нет. Факт то, что при последующем извлечении данных из этой ячейки и помещения их в документе появляется текст без форматирования (выделение жирным, курсивы, размеры шрифта и т.д.). Как это исправить? |
|||
|
||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
.Content - и есть голый текст... Сохраните этот текст на диск в RTF, после чего прочтите полученный файл как textStream и отправьте в поле БД. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |