自动附加Sqlserver数据库
发布时间：2020-12-12 14:12:38 所属栏目：MsSql教程 来源：网络整理
导读：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 sysdatabas
|
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,'数据库名称',Paths,'数据库文件名称','数据库日志文件名称',#39)]); ??? WinExec(PChar(CmdStr),0); ??? except ??? on E:Exception do ????? Logmemo.Add(e.Message); ??? end; end;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |