获取SQLServer备份文件的信息

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

原创最新推荐文章于 2019-07-06 21:20:48 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sqlserver #string #数据库 #disk

【Delphi】专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一种从SQLServer2000备份文件中提取逻辑信息的方法，包括数据库文件的原始路径和逻辑文件名、log文件的原始路径及逻辑文件名等。通过调用RESTOREFILELISTONLY命令并解析返回的数据集来实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这段过程是获取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;