delphi - 使用 XML 文件中存储的数据库信息填充 FDQuery/Dataset

Question

我有一个 XML 文件，用于存储数据库信息(表名、记录等)。是否有任何方法可以将记录从文件加载到查询或数据集？我想更改 TablaName 参数，然后我想用表记录填充数据库。谢谢各位的解答!

我的 XML 看起来像:

<?xml version="1.0" encoding="UTF-8"?>
-<Data>
  -<Table Sql="Select * from VAT_RATE " MinimumCapacity="50" EnforceConstraints="False" TabID="0" SourceID="1" SourceName="VAT_RATE" Name="FDQuery">
   -<ColumnList>
     <Column SourceID="1" SourceName="VAT_RATE_ID" Name="VAT_RATE_ID" OriginColName="VAT_RATE_ID" OriginTabName="VAT_RATE" OInKey="True" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Int32"/>
     <Column SourceID="2" SourceName="BEGINS" Name="BEGINS" OriginColName="BEGINS" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Date" OAllowNull="True" AllowNull="True"/>
     <Column SourceID="3" SourceName="ENDS" Name="ENDS" OriginColName="ENDS" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Date" OAllowNull="True" AllowNull="True"/>
     <Column SourceID="4" SourceName="NAME" Name="NAME" OriginColName="NAME" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="AnsiString" SourceSize="20" Size="20"/>
     <Column SourceID="5" SourceName="ACCOUNT" Name="ACCOUNT" OriginColName="ACCOUNT" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="AnsiString" SourceSize="20" Size="20"/>
     <Column SourceID="6" SourceName="KEY" Name="KEY" OriginColName="KEY" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Currency" SourceScale="2" SourcePrecision="9" Scale="2" Precision="9"/>
     <Column SourceID="7" SourceName="D_EFAULT" Name="D_EFAULT" OriginColName="D_EFAULT" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Int16"/>
     <Column SourceID="8" SourceName="count_ID" Name="count_ID" OriginColName="count_ID" OriginTabName="VAT_RATE" OInWhere="True" OInUpdate="True" Base="True" Searchable="True" DataType="Int32"/>
   </ColumnList>
   <ConstraintList/>
    <ViewList/>
   -<RowList>
     -<Row RowState="Unchanged" RowID="0">
       <Original count_ID="14" D_EFAULT="0" KEY="20" ACCOUNT="20%" NAME="20%" ENDS="20090630" BEGINS="20051001" VAT_RATE_ID="1"/>
      </Row>
     -<Row RowState="Unchanged" RowID="1">
       <Original count_ID="14" D_EFAULT="0" KEY="18" ACCOUNT="18%" NAME="18%" BEGINS="20040101" VAT_RATE_ID="3"/>
     </Row>
   </RowList>
  </Table>
</Data>

在示例中 TablneName 是 ... SourceName="VAT_RATE"

Answer 1

最简单的方法似乎是修改我对您之前的 q ( Append TFDMemTable data into one XML file ) 的回答中的 SaveTXML 方法，如下所示，并添加 LoadFromXML方法。

修改SaveToXML的原因是FDQuery需要它在保存时生成的XML的Manager节点，以及我的的早期版本>SaveToXML 将其删除。

在LoadFromXML中，由该语句确定的查询+加载的数据

    Node := NodeList.item[0];

NodeList 是已保存 XML 顶级文档元素的子节点列表，item[0] 只是这些节点中的第一个(它们是编号为 0..NodeList.length - 1)。因此，要加载不同的项目，您可以设置适合的 item[] 编号。根据您对 XML XPath 查询的熟悉程度，还有多种其他方法可以选择您重新加载其查询和数据的 XML 节点，但 XPath 是一个完全不同的主题。

顺便说一句，请确保删除或重命名在更改 SaveToXML 之前保存的任何版本的 XML 文件，因为以前的版本与 LoadFromXML 不兼容.

代码:

const
  scSavedData = 'D:\delphi\code\firedac\SavedData.Xml';
  scSavedSingleQuery = 'D:\delphi\code\firedac\SavedSingleQuery.Xml';
  scSavedDataXML = '<?xml version="1.0" encoding="utf-8"?><Data/>';

procedure TForm1.LoadFromXML(FDQuery: TFDQuery);
var
  SS : TStringStream;
  XmlDoc : IXmlDOMDocument;
  NodeList: IXmlDomNodeList;
  Node: IXmlDomNode;
  Element : IXmlDomElement;
begin
  if FDQuery.Active then
    FDQuery.Close;
  SS := TStringStream.Create;
  XmlDoc := CoDomDocument.Create;
  try
    XmlDoc.load('file://' + scSavedData);
    NodeList := XmlDoc.documentElement.childNodes;
    Node := NodeList.item[0];
    SS.WriteString(Node.xml);
    FDQuery.LoadFromStream(SS, sfXML);
  finally
    SS.Free;
  end;
end;

procedure TForm1.SaveToXML(FDQuery: TFDQuery);
var
  SS : TStringStream;
  XmlDoc1,
  XMlDoc2 : IXMLDOMDocument2;
  nDestination : IXmlDomNode;
  eDestination : IXmlDomElement;
begin
  SS := TStringStream.Create;
  XmlDoc1 := CoDomDocument.Create;
  try
    FDQuery.SaveToStream(SS, sfXML);
    XmlDoc1.loadXML(SS.DataString);
    Memo1.Lines.Text := SS.DataString;

    XmlDoc2 := CoDomDocument.Create;
    if FileExists(scSavedData) then begin
      XmlDoc2.load(scSavedData)
    end
    else begin
      XmlDoc2.loadXML(scSavedDataXML);
    end;
    nDestination := XmlDoc1.DocumentElement.cloneNode(True) as IXmlDomNode;
    XmlDoc2.documentElement.appendChild(nDestination);
    eDestination := nDestination as IXmlDomElement;
    eDestination.setAttribute('Sql', FDQuery.SQL.Text);

    Memo1.Lines.Text := XmlDoc2.documentElement.Xml;
    XmlDoc2.save(scSavedData);
  finally
    SS.Free;
  end;
end;