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

我有一个存储数据库信息（表名、记录等）的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>

-
-
-
-
-
-

---

在示例中，tablename是。。。SourceName=“VAT_RATE”

最简单的方法似乎是修改我对前面的q（）的回答中的

SaveTXML

方法，如下所示，并添加

LoadFromXML

方法

修改

SaveToXML

的原因是，FDQuery需要执行保存时生成的XML的

Manager

节点，早期版本的my

SaveToXML

将其删除

在

LoadFromXML

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

    Node := NodeList.item[0];

NodeList

是保存的XML顶级文档元素的子节点列表，

item[0]

只是这些节点中的第一个（编号为0..

NodeList.length

-1）。因此，要加载另一个，可以将

项[]

编号设置为适合。根据您对XML XPath查询的熟悉程度，有多种其他方法可以选择重新加载其查询+数据的XML节点，但XPath是一个完全不同的主题

顺便说一句，确保在更改为

SaveToXML

之前删除或重命名保存的XML文件的任何版本，因为以前的版本与

LoadFromXML

不兼容

代码：

const
scSavedData='D:\delphi\code\firedac\SavedData.Xml'；
scSavedSingleQuery='D:\delphi\code\firedac\SavedSingleQuery.Xml'；
scSavedDataXML=''；
过程TForm1.LoadFromXML（FDQuery:TFDQuery）；
变量
SS:TStringStream；
XmlDoc:IXmlDOMDocument；
节点列表：IXmlDomNodeList；
节点：IXmlDomNode；
元素：IXmlDomElement；
开始
如果FDQuery.Active，则
FDQuery.Close；
SS:=TStringStream.Create；
XmlDoc:=CoDomDocument.Create；
尝试
load（'file://'+scSavedData）；
节点列表：=XmlDoc.documentElement.childNodes；
节点：=节点列表项[0]；
WriteString（Node.xml）；
LoadFromStream（SS，sfXML）；
最后
SS.免费；
结束；
结束；
过程TForm1.SaveToXML（FDQuery:TFDQuery）；
变量
SS:TStringStream；
XmlDoc1，
XMlDoc2:IXMLDOMDocument2；
n目标：IXmlDomNode；
目的：IXMLDOMENT；
开始
SS:=TStringStream.Create；
XmlDoc1:=CoDomDocument.Create；
尝试
SaveToStream（SS、sfXML）；
loadXML（SS.DataString）；
Memo1.Lines.Text:=SS.DataString；
XmlDoc2:=CoDomDocument.Create；
如果文件存在（scSavedData），则开始
XmlDoc2.load（scSavedData）
结束
否则开始
loadXML（scSavedDataXML）；
结束；
nDestination:=XmlDoc1.DocumentElement.cloneNode（True）作为IXmlDomNode；
XmlDoc2.documentElement.appendChild（nDestination）；
eDestination:=作为IXmldElement的nDestination；
setAttribute（'Sql'，FDQuery.Sql.Text）；
Memo1.Lines.Text:=XmlDoc2.documentElement.Xml；
XmlDoc2.save（scSavedData）；
最后
SS.免费；
结束；
结束；

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;