第一:怎么备份SQL数据库,如果是ACCESS数据库可以用下面的代码实现拷贝备份,但SQL怎么实现啊procedure Tfrm_main.Button1Click(Sender: TObject);
var filename,backupname:string;
begin
filename:=ExpandFileName('db.mdb');
BackupName :=ChangeFileExt('备份/','db.mdb');
copyfile(pchar(filename),pchar(BackupName),false);
end;
第二:我在自己的机子上做好了程序,拿到别的机子上,服务应该怎么设置啊,难道还要修改源程序啊

解决方案 »

  1.   

    恢复操作的时候,要把当前的数据库连接关闭,通过另一个
    TADOConnection连接到Master数据库上
    1. ADOConnection1 连接你的业务数据库。
    2. ADOConnection2 连接 MASTER 数据库。
    3. ADOCommand1.Connection := ADOConnection2;
    假设你的数据库名为: DataBaseName
    Button.OnClick:
    begin
      ADOConnection1.Connected := False;
      ADOCommand1.CommandText := 'BACKUP DATABASE DataBaseName TO DISK = ' + #39 + 'C:\KKK.BAK' + #39;
      ADOCommand1.Execute;
      ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET OFFLINE WITH ROLLBACK IMMEDIATE';
      ADOCommand1.Execute;
      ADOCommand1.CommandText := 'RESTORE DATABASE DataBaseName FROM DISK = ' + #39 + 'C:\KKK.BAK' + #39;
      ADOCommand1.Execute;
      ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET ONLINE WITH ROLLBACK IMMEDIATE';
      ADOCommand1.Execute;
      ADOConnection1.Connected := True;
      ADOTable1.Active := true;
    end;第二个问题你应该这样:
    1如果不想再改程序,你应该把服务器与你的电脑设置成一样(不建议采用此方法)
    2,把连接设置存在ini文件里。这样比较好,如不会设置。给我发消息,给你源码
      

  2.   

    有标准的sql语句的,具体我也忘了,找些资料看一下!