获取SQLServer备份文件的信息

最新推荐文章于 2019-07-06 21:20:48 发布

火龙岛主

最新推荐文章于 2019-07-06 21:20:48 发布

阅读量2.2k

点赞数

分类专栏：【Delphi】文章标签： sqlserver string 数据库 disk

本文链接：https://blog.csdn.net/smallhand/article/details/3514165

版权

【Delphi】专栏收录该内容

41 篇文章 0 订阅

订阅专栏

这段过程是获取SQLServer2000备份文件的逻辑信息，备份文件数据库文件的原始路径，备份文件的数据库文件的逻辑文件名，log文件的原始路径及逻辑文件名。
其他信息详见SQLServer2000帮助
procedure GetDBLogPath(DBName: string; var LogicDBName,
LogicLogName, DBPath, LogPath: string);
var
vDataSet: TDataSet;
vSQL: string;
vType: string;
begin
vDataSet := SQLService.CreateDataSet;
try
    vSQL := 'RESTORE FILELISTONLY FROM disk=' + QuotedStr(RestoreFileName);
    SQLService.GetData(vDataSet, vSQL);
    vDataSet.First;
    while not vDataSet.Eof do
    begin
      vType := trim(vDataSet.FieldByName('Type').AsString);
      if vType = 'D' then
      begin
        LogicDBName := trim(vDataSet.FieldByName('LogicalName').AsString);
        DBPath := trim(vDataSet.FieldByName('PhysicalName').AsString);
      end else
        if vType = 'L' then
        begin
          LogicLogName := trim(vDataSet.FieldByName('LogicalName').AsString);
          LogPath := trim(vDataSet.FieldByName('PhysicalName').AsString);
        end;
      vDataSet.Next;
    end;
finally
    vDataSet.Free;
end;
end;