Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Базы данных и репортинг > Как сохранить измен. обратно в БД


Автор: НурболКазбеков 1.11.2005, 13:02
У меня одна проблема. Мне надо было открывать вордовский документ с базы (это у меня получилось), но когда я редактирую и закрываю документ, запрашивает о сохранении (ну поидее так и должно быть). Нажимаю Ок, но изменение не сохраняется в базе,сохраняется в оригинале ('D:/Прога/W.doc'). А мне надо чтоб изменения сохранились обратно в БД.
Спасибо заранее.
Код проги таков:
procedure TForm2.Button2Click(Sender: TObject);
var
ptkwrd:Tmemorystream;
begin
try
ptkwrd:= Tmemorystream.Create;
tblobfield(ADO1ww).SaveToStream(ptkwrd);
ptkwrd.Position:=0;
ptkwrd.SaveToFile('D:/Прога/W.doc');
shellexecute(Handle, 'open','D:/Прога/W.doc',nil,nil,SW_SHOWNORMAL);
finally
ptkwrd.Free;
end;

Автор: lotax 1.11.2005, 13:21
не пойму, а зачем надо создавать темы с одним и тем же смыслом несколько раз, мне кажется, чтобы получить ответ, хватит и одной темы с конкретной постановкой вопроса... smile

Автор: Alex 1.11.2005, 20:39
http://forum.vingrad.ru/index.php?showtopic=68633&st=0&#entry551402

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)