DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: linzitou
今日帖子: 6
在线用户: 29
导航: 论坛 -> 数据库专区 斑竹:liumazi,waterstone  
作者:
男 jeff0002 (jeff) ★☆☆☆☆ -
普通会员
2004/4/22 21:31:01
标题:
关于数据库备份的问题 浏览:1085
加入我的收藏
楼主: 我用的是paradox7.0做的数据库,现在我想在程序中将文件table1.db保存到另一个以知文件夹,如何做啊?什么方法都行,最好有程序。万分感谢。
----------------------------------------------
-看贴不回贴,什么世道!
作者:
男 cnxxx (我本高手) ★☆☆☆☆ -
盒子活跃会员
2004/4/22 23:35:55
1楼: filecopy()就行了。
----------------------------------------------
黑夜中,一眼望去,我就是高手。
作者:
男 jeff0002 (jeff) ★☆☆☆☆ -
普通会员
2004/4/23 14:52:55
2楼: 大侠,怎么用啊?我是个初学者,能不能说的详细点?最好有源代码,谢了!!!
----------------------------------------------
-看贴不回贴,什么世道!
作者:
男 endo (燕子帝国) ★☆☆☆☆ -
盒子活跃会员
2004/4/23 22:39:39
3楼: procedure TF_Backup.BitBtn_BackupClick(Sender: TObject);
var
  DBName: string;
begin
  if ADOConnection_DB.Connected = true then ADOConnection_DB.Connected:=false;
  DbName:=ExtractFilePath(ParamStr(0))+'Data\BackUp.Mdb';
  if FileExists(DbName) then DeleteFile(DbName);
  CopyFile(Pchar('Data\Book.mdb'), Pchar(DBName), True);
  MessageBox(handle, '数据库备份成功!', '提示', mb_IconInformation + mb_Ok);
  if ADOConnection_DB.Connected = false then ADOConnection_DB.Connected := true;
end;

----------------------------------------------
『惠安人才网』 www.harcw.net
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行58.59375毫秒 RSS