自动附加Sqlserver数据库

最新推荐文章于 2019-10-02 07:25:55 发布

weixin_30667301

最新推荐文章于 2019-10-02 07:25:55 发布

阅读量143

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/caowei-it/archive/2013/01/06/4145802.html

版权

procedure TfrmMain.RestoreDataBase;
var
CmdStr,
Paths:String;
begin
Paths:=Extractfilepath(Application.ExeName);
if fileexists(ConCat(Paths,'数据库文件名称')) then
    try
    CmdStr:='ISQL -E -Q "if (select Count(*) from sysdatabases where name=%s)=0 EXEC sp_attach_db @dbname = N%s,@filename1 = N%s,@filename2 = N%s"';
    CmdStr:=format(CmdStr,[ConCat(#39,'NGISdbms',#39),
                           ConCat(#39,'数据库名称',#39),
                           ConCat(#39,Paths,'数据库文件名称',#39),
                           ConCat(#39,Paths,'数据库日志文件名称',#39)]);
    WinExec(PChar(CmdStr),0);
    except
    on E:Exception do
      Logmemo.Add(e.Message);
    end;
end;

转载于:https://www.cnblogs.com/caowei-it/archive/2013/01/06/4145802.html