自动附加Sqlserver数据库

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

骑着骆驼写程序

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

阅读量569

点赞数

分类专栏： delphi技术总结

本文链接：https://blog.csdn.net/cw370008359/article/details/8473378

版权

delphi技术总结专栏收录该内容

23 篇文章 0 订阅

订阅专栏

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;