Question

我有一个XML文件，我存储数据库信息（TableName，Records等）有没有办法从文件中将记录加载到查询或数据集？我想更改TablaName参数，之后我想用Table Records填充数据库。谢谢你的答案！

我的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 =＆＃34; VAT_RATE＆＃34;

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;

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

1 个答案: