Конференция "Micro Focus/Borland"

Обсуждение вопросов, связанных с компанией Micro Focus/Borland, ее продуктами CaliberRM, CaliberRDM, SilkTest, StarTeam, TeamDefine, Together и других.

 
 
Добавить сообщение »

Тема: как сохранить бд access через приложение delphi

Автор:  Alexey Дата: 14.05.2007 07:05
У меня архивы делаются так:
Процедура копирования файла:
function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0; F.wFunc := FO_COPY;
FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;


Использование этой процедуры:
d:=now;
name:=FormatDateTime('"aaa_"dd"_"mm"_"yy"_"hh"_"mm"_"ss',d);
application.ProcessMessages;
if not WindowsCopyFile(basa_path, exe_path+'archive\'+name+'.mdb') then
ShowMessage('Copy Failed');
Ответить на сообщение »
 
Автор:  Alexander20 Дата: 08.05.2007 16:19
Здрасьте! Я использовал бд access в приложении delphi, надо сохранить бд в новый файл, не в текущий.
Пытался через SaveDialog, но файл, который получается при сохранении, не открывается через это же приложение. Пожалуйста, подскажите как правильно сохранение сделать, чтобы файл потом открывался.
Ответить на сообщение »
 

Добавить сообщение »
Страница сайта http://www.interface.ru
Оригинал находится по адресу http://www.interface.ru/iservices/messages.asp?forumId=587&topicId=506