下载此文档

ess数据库.doc

文档分类：IT计算机 | 页数：约2页举报非法文档有奖

1/2

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/2 下载此文档

文档列表 文档介绍

ess数据库
发布人: formulas; 发布时间: 2006-12-15 ; 上次回复: 2007-3-27 11:38:01; 总计回复: 8人次
ess数据库?小弟从没做过这方面的东西,所以不会做。用了一个savedialog控件。。希望各位大侠指点啊。
蓝冰(jrant) [等级:◆◆(初级)] (信誉值: 98) 回复于: 2005-9-28 17:23:09 Top

遨游的人(gongda3124) [等级:◆(初级)] (信誉值: 100) 回复于: 2005-9-28 17:29:53 Top
老兄,你不是要我在windows下直接操作吧,我要求能在我自己编的软件中执行啊。
飞帆(flyjalor) [等级:◆(初级)] (信誉值: 100) 回复于: 2005-9-28 17:46:33 Top
赫赫,你程序中式不是用到数据库了??
1。首先把数据库关闭!利用拷贝文件的api函数备份到其他地方
2。在其他地方建立好相同的数据文件,你利用程序从本库写到备份库里
遨游的人(gongda3124) [等级:◆(初级)] (信誉值: 100) 回复于: 2005-9-28 17:50:38 Top
楼上的大哥能不能详细些啊,你这样说了我也不会做啊,最好能给出个例子。
蹩脚的程序员(winxkm) [等级:◆◆◆(初级)] (信誉值: 99) 回复于: 2005-9-28 17:53:10 Top
procedure ;
var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
    :=0;
    :='数据库备份过程中......' ;
    AssignFile(FromF, extractfilepath()+'DB\');
    Reset(FromF, 1);{ Record size = 1 }
    :=sizeof(FromF);
      AssignFile(ToF, extractfilepath()+'DB\backup\'+formatDateTime('yyyy-mm-dd',date)+'.roc');{ Open output file }
      Rewrite(ToF, 1);{ Record size = 1 }
      :=sizeof(ToF);
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      u

ess数据库来自淘豆网www.taodocs.com转载请标明出处.