大大的难题，你会吗？嘿嘿，进来坐的没有分的哦

Question

啊？呵呵。UP你是死FLYINGQQ的小师妹吧？

Answer 1

两种方法
1、使用文件copy
例：
var
p      :  SHFILEOPSTRUCT ;
str    :  string;
begin
   str:=GetCurrentDir();
   p.pFrom :=pchar(str+'\*.*');
   showmessage(p.pFrom);
   p.pTo   :=pchar(str+'\backup\');
   showmessage(p.pTo);
   p.wFunc :=FO_COPY;
   p.Wnd   :=Handle;
   p.lpszProgressTitle:= '请等待...';
   {设定操作选项}
   p.fFlags:= FOF_ALLOWUNDO       or FOF_NOCONFIRMMKDIR
              or  FOF_NOCONFIRMATION or FOF_FILESONLY ;
      SHFileOperation(p);
2、在query里建一个和你要备份的表一个结构的表，
在一条一条的把数据导过了，你就有了一个备份表了，呵呵，不知道这个回答你满意不。

Answer 2

难道你不懂我的意思？
access就是一个mdb文件嘛,将它拷贝出去就是备份，拷贝回来覆盖就是还原

Answer 3

qiandeng，不是我明白，是我觉的不是啊

Answer 4

http://www.csdn.net/expert/topic/765/765748.xml?temp=.1986811

Answer 5

qiqi97(小菜弟) ( 给我说一说嘛，我想进FAQ啊，我没有信用嘛

Answer 6

呵呵，小师姐，你这一百分算是白出了。
备份access数据库只需拷贝文件就行了。不过有一点要注意：在恢复数据库的时候要关闭所有到该数据库连接。

Answer 7

1.备份C:\Test1.MDB数据库到C:\BackUp文件夹下
CopyFile(pchar('C:\Test1.Mdb'),pchar('C:\BackUp\Test1.Mdb'),False);
2.恢复C:\BackUp\Test1.MDB数据库到C:\下
CopyFile(pchar('C:\BackUp\Test1.Mdb'),pchar（'C:\Test1.Mdb'),False);我觉得自己有偷懒的嫌疑～～～

Answer 8

用sql的备份命令。如果是sql的话。直接通过
备份
Master :
BACKUP LOG '+DBName+' WITH TRUNCATE_ONLY
BACKUP DATABASE '+DatabaseName+' TO '+BackupDeviceName
恢复
 RESTORE DATABASE '+DBName+' FROM disk = '''+BackupDeviceComboBox.Text;//+' WITH RESTRICTED_USER' 
例子
BACKUP DATABASE Money
   TO Disk = 'c:\Data\001\Money.bak'
   WITH init,
   NAME = 'Full Backup of Money'
RESTORE DATABASE Money_001
   FROM Disk = 'c:\Data\001\Money.bak'
志向男孩
不要给分阿

Answer 9

大家不都说是copy啊，那小师妹你就听取大家的意见啊，嘻嘻
我是FLY的兄弟，你是他师妹，所以，你也是我师妹

Answer 10

一个是伴水，一个是好像叫windindance(名子很好听的)，还有一个，很高很深的，没有见过哦foxnt

Answer 11

用SQL语句了，先把原数据库中的数据查出来之后，在用SQL语句创建另外一个表空间，把查出来的数据添加进去就可以了。Up

Answer 12

拷贝然后用程序将其压缩成ZIP

Answer 13

小师妹，把其转化成xml的方法行吗。

Answer 14

insert into 要备份到那个表
(select * from 要备份的表)

Answer 15

TO  saimaya(),如何做啊？
              如何压缩啊？给你另开贴子说可不可以？

Answer 16

TO suary(小船) 
  嗯，很好啊：）谢谢你

Answer 17

可以用ado，将他存成xml文件，然后带者文件那里都可以去。
这就是brief case ！1 ：-）我来帮你up！

Answer 18

****************************
var
  Up : Integer ;
  I : Integer ;
begin 
  Up := 0 ; 
  for i := 0 to 10(N) do 
  begin
    Up := Up + i ;
  end ;
end ; 
****************