VPF::помогите из Excel и Word добавлять данные

mr_tg

Дата 24.5.2008, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет

[Delphi7]
Здраствуйте Знатакаи Delphi7 smile

У меня есть прога накотором я из базы данных (С:\1235.DB - “id”, “Ism”, “Familiya”, 'Sharif') которя зделана на Paradox7. С помощью ExcelApplication1 ExcelWorksheet1 ExcelWorkbook1 ExcelOLEObject1 икода

Код



Query1.First;
i:=3;
with Query1 do
begin
repeat
    Sheet.Cells[i,1]:=Query1.FieldByName('ID').AsString;
    Sheet.Cells[i,2]:=Query1.FieldByName('Familiya').AsString;
    Sheet.Cells[i,3]:=Query1.FieldByName('Ism').AsString;
    Sheet.Cells[i,4]:=Query1.FieldByName('Sharif').AsString;
  Query1.Next;
  i:=I+1;
 until Query1.Eof;
 excel.visible:=true;
 Screen.Cursor:=crDefault;



Query1.First;
       i:=2;
       with Query1 do
       begin
       repeat
       Word.Selection.TypeText(Query1.FieldByName('Familiya').AsString);
       Word.Selection.TypeText(' ');
       Query1.Next;
       i:=I+1;
       until Query1.Eof;
       end;

Я эти данные добавляю в Excel и Word
Вопрос: помогите из Excel и Word добавлять данные в С:\1235.DB нажатием кнопки. Хотелось бы получить проги простинкие но отвечаюших на мой вопрос чтобы просмотреть. (скрипты, коды и проги, объяснении пишите на уровне новичка)

Заранее благодарю за помощь (коды и проги).
MR_TG

Albinos_x

Дата 24.5.2008, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

http://forum.vingrad.ru/s/ab5dfa61bede2229...opic-84634.html

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Данкинг

Дата 24.5.2008, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А что именно не получается? Почитай про перебор ячеек в Excel, про чтение/запись данных в WORD.

И вот это:

Цитата(mr_tg @ 24.5.2008, 10:54

)

Код


with Query1 do
     ///
       Query1.Next;

Зачем тут with нужен в таком случае? smile

Это сообщение отредактировал(а) Данкинг - 24.5.2008, 10:58

--------------------

There's nothing left but silent epitaphs.

mr_tg

Дата 2.6.2008, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет

Cпасибо за помошь !!!
MR_TG ;)

Guzya

Дата 4.7.2008, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

ну дак, как ты читаешь из word-а? Если не секрет.

Данкинг

Дата 4.7.2008, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Guzya @ 4.7.2008, 10:15)

ну дак, как ты читаешь из word-а? Если не секрет.

Создаёшь WORD как OLE-объект и читаешь из него. smile

--------------------

There's nothing left but silent epitaphs.

Guzya

Дата 4.7.2008, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

и на сколько быстро читается, у меня таблицы в word-е несколько тысяч строк, так я их как 9(сейчас 14.51) часов зарядил считываться и записываться в dbf так они до сих пор не завершились. При том что выполняю проги на сервере.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »