100分下班揭帖！求如何通过delphi备份数据库数据，还有还原！

Question

不管结果如何，下班揭帖，请大家帮忙！

Answer 1

procedure TMainForm.btnBackupCreatClick(Sender: TObject);
var
   filePath,fSQLStr:string;
begin
   filepath:='';
   backupdialog.Title:='备份到';
   if backupdialog.Execute then filepath:=backupdialog.FileName+'.bak';
   if length(filepath)<4 then exit;
   fSQLStr := 'BACKUP DATABASE ' + fDB_name +
                  ' TO DISK = ' + '''' + filepath + ''''+'with init';
   if Ado_BackUp.Active then Ado_BackUp.Close;
   Ado_BackUp.SQL.Clear;
   Ado_BackUp.SQL.Add(fSQLStr);
   Try
   Ado_BackUp.ExecSQL;
   Except
   MessageDlg('数据库备件失败.',mtwarning,[mbOk], 0);
   exit;
   end;//try
   MessageDlg('数据库备件成功.',mtinformation,[mbOk], 0);
end;fDB_name是数据库的名称

Answer 2

通过文件复制可以实现备份,恢复好像sql server 不支持直接复制恢复,总是提醒共享错误.procedure TFrmMain.mnuBakDataClick(Sender: TObject);
var
  ssFileName:string;
begin
   //目录管理.mdb 文件备份
  ssFileName:=sAppPath+'\目录管理.mdb';
  try
    SaveDialog1.Execute;
    CopyFile(PChar(ssFileName),PChar(savedialog1.FileName),False);
  except
  begin
     showmessage('文件备份过程中出错');
  end;
  end;
end;
这是备份aceess 的,

Answer 3

我还是在找怎样备份\还原。尤其是bde+odbc方式的。

Answer 4

备份与恢复数据库的存储过程create   PROCEDURE  GY_DBBak  
          @bakequip    int,         --  备份设备：磁盘&磁带  
          @bakpath     varchar(50), --  带全路径的备份文件名  
          @baktype     int,         --  完全备份&增量备份  
          @baklog      int,         --  ‘0’备份日志  
          @bakdb       int,         --  ‘0’备份数据库  
          @kind  varchar(7),        --备份还是恢复  
          
  @retmsg  varchar(20)  output     --返回信息  
AS  
   DECLARE  @DevName_data    varchar(50)  
   DECLARE  @DevName_log   varchar(50)
   declare @db_path varchar(100)
   declare @log_path varchar(100)
       
   DECLARE  @RC INT     SELECT    @db_path    =  @bakpath    +  '.dat'  
SELECT    @log_path   =  @bakpath    +  'log.dat'  
        SELECT    @RC=0   DBCC  CHECKDB(Northwind)  
/***********************************************************
** CREATE BACKUP AND RESTORE DEVICES
************************************************************/
IF @RC=0
   BEGIN

    EXEC sp_addumpdevice 'disk', @DevName_data,@db_path

exec sp_addumpdevice 'disk', @DevName_log,@log_path
    select @rc=@@error
IF @RC<>0
begin
EXEC SP_DropDevice @Devname_data
exec sp_dropdevice @devname_log
SELECT @RC=-1000
return @rc
end
  END

   IF  @kind='backup'  
   BEGIN  
       IF  @bakequip=0  
       BEGIN  
           IF  @baktype=0  
           BEGIN  
               IF  @bakdb=0  
               BEGIN    
                   BACKUP  DATABASE  Northwind  TO  DISK=@Devname_data   
                   WITH  INIT  
               END  
               IF  @baklog=0  
               BEGIN              
                   BACKUP  LOG  Northwind  WITH  NO_LOG              
                   BACKUP  LOG  Northwind  TO  DISK=@DevName_log 
                   WITH  INIT,NO_TRUNCATE  
               END  
           END  
           ELSE  BEGIN  
               IF  @bakdb=0  
               BEGIN  
                   BACKUP  DATABASE  Northwind  TO  DISK=@DevName_data
                   WITH  NOINIT  
               END  
               IF  @baklog=0  
               BEGIN  
                   BACKUP  LOG  Northwind  WITH  NO_LOG              
                   BACKUP  LOG  Northwind  TO  DISK=@DevName_log 
                   WITH  NOINIT,NO_TRUNCATE  
               END  
           END          
       END  
       SELECT  @retmsg='数据库备份成功！'  
   END  
 
   IF  @kind='restore'      
   BEGIN  
       RESTORE  DATABASE  Northwind  FROM  DISK=  @DevName_data WITH  REPLACE  
       SELECT  @retmsg='恢复数据库成功！'  
   END  
 
   RETURN  0  

Answer 5

提示共享错误是 DELPHI 数据集ACTIVE 属性未关.