请问我如何往XML中插入新的记录。(100分)

  • 主题发起人 主题发起人 pqzemily
  • 开始时间 开始时间
P

pqzemily

Unregistered / Unconfirmed
GUEST, unregistred user!
请问我如何往XML中插入新的记录。
 
XML 与数据库表的转换
原著: Sreekumar S
公司: Icode s/w Pvt. Ltd.,Bangalore 参考资料: N/A

问题提出/摘要:
本文将解释如何通过从Paradox表中读取数据生成XML文件,并且将相同的数据插回源表中。不过它还不能工作在memo字段上。我使用MS XML解析器来解析XML文档。因此你的系统须是IE 5.0或以上版本。

回答:
生成XML文件。
我使用下面的转换方法:
I . XML文件的根名与表名相同(本例就是country)。
II. 每条来自于表的记录由<record></record>标记区分。
III. 每个来自于表的数据由其字段名标记加以区分。

- <country>
- <Records>
<Name>Argentina</Name>
<Capital>Buenos Aires</Capital>
<Continent>South America</Continent>
<Area>2777815</Area>
<Population>32300003</Population>
</Records>
.
.
.
</country>

建立一个新的应用程序。放置一个Button和Table构件于主窗体上。设置表属性如下:
DatabaseName : DBDEMOS
Name : Table1
TableName : country (Remove the extention ".db")
Active : True

选择 Project/Import Type library。将会弹出 "Import Type Library" 对话框。从列表中选择 "Microsoft XML,Version
2.0(version 2.0)" 然后点击 "Create Unit" 按钮。将会有一个 MSXML_TLB 单元加入你的工程.请将 MSXML_TLB 加入你要引用的单元的接口部分。然后在变量部分声明如下变量:
DataList : TStringlist;
do
c : IXMLDOMDocument;
root,child,child1 : IXMLDomElement;
text1,text2 : IXMLDOMText;
nlist : IXMLDOMNodelist;
dataRecord : String;

添加makeXml函数到你的单元。它将通过读取DBDEMOS中contry表中的数据生成一个XML文件。
function TForm1.makeXml(table:TTable):Integer;
var
i : Integer;
xml,temp : String;
begin

try
table.close;
table.open;
xml := table.TableName;
do
c := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
//Set the root name of the xml file as that of the table name.
//In this case "country"
root :=do
c.createElement(xml);
do
c.appendchild(root);
//This while loop will go through the entaire table to generate the xml file
while not table.eofdo

begin

//adds the first level children , Records
child:=do
c.createElement('Records');
root.appendchild(child);
for i:=0 to table.FieldCount-1do

begin

//adds second level children
child1:=doc.createElement(table.Fields.FieldName);
child.appendchild(child1);
//Check field types
case TFieldType(Ord(table.Fields.DataType)) of
ftString:
begin

if Table.Fields.AsString ='' then

temp :='null' //Put a default string
else

temp := table.Fields.AsString;
end;


ftInteger, ftWord, ftSmallint:
begin

if Table.Fields.AsInteger > 0 then

temp := IntToStr(table.Fields.AsInteger)
else

temp := '0';
end;

ftFloat, ftCurrency, ftBCD:
begin

if table.Fields.AsFloat > 0 then

temp := FloatToStr(table.Fields.AsFloat)
else

temp := '0';
end;

ftBoolean:
begin

if table.Fields.Value then

temp:= 'True'
else

temp:= 'False';
end;

ftDate:
begin

if (not table.Fields.IsNull) or
(Length(Trim(table.Fields.AsString)) > 0) then

temp := FormatDateTime('MM/DD/YYYY',
table.Fields.AsDateTime)
else

temp:= '01/01/2000';
//put a valid default date
end;

ftDateTime:
begin

if (not table.Fields.IsNull) or
(Length(Trim(table.Fields.AsString)) > 0) then

temp := FormatDateTime('MM/DD/YYYY hh:nn:ss',
Table.Fields.AsDateTime)
else

temp := '01/01/2000 00:00:00';
//Put a valid default date and time
end;

ftTime:
begin

if (not table.Fields.IsNull) or
(Length(Trim(table.Fields.AsString)) > 0) then

temp := FormatDateTime('hh:nn:ss',
table.Fields.AsDateTime)
else

temp := '00:00:00';
//Put a valid default time
end;

end;

//
child1.appendChild(doc.createTextNode(temp));
end;

table.Next;
end;

do
c.save(xml+'.xml');
memo1.lines.Append(doc.xml);
Result:=1;
except
on e:Exceptiondo

Result:=-1;
end;

end;


在Button1的onclick事件中调用上面的函数
procedure TForm1.Button1Click(Sender: TObject);
begin

if makeXml(table1)=1 then

showmessage('XML Generated')
else

showmessage('Error while generating XML File');
end;


如果你用IE 5.0(或以上版本)打开生成的country.xml文件,它看起来会成下面的样子
- <country>
- <Records>
<Name>Argentina</Name>
<Capital>Buenos Aires</Capital>
<Continent>South America</Continent>
<Area>2777815</Area>
<Population>32300003</Population>
</Records>
- <Records>
<Name>Bolivia</Name>
<Capital>La Paz</Capital>
<Continent>South America</Continent>
<Area>1098575</Area>
<Population>7300000</Population>
</Records>
.
.
.
- <Records>
<Name>Venezuela</Name>
<Capital>Caracas</Capital>
<Continent>South America</Continent>
<Area>912047</Area>
<Population>19700000</Population>
</Records>
</country>

插入数据

你已经将country表中存在的数据生成了XML文件。因此在这个XML文件中的数据就与country表中是一样的。如果你想将XML文件中的数据插入进country表中又不想删除原来存在的数据的话,将会有主键冲突的错误出现。因此必须先将country表中已经存在的数据删除掉。
添加另一个按钮和一个memo构件于主窗体。在button2的onclick事件中添加如下代码.memo用来显示数据插入中的状态(成功/失败)。
procedure TForm1.Button2Click(Sender: TObject);
var
i,ret_val,count:Integer;
strData:String;
begin

//Before inserting data in to the country table,make sure that the data in
//the generated xml file(country.xml) and country table(DBDEMOS) are
//different.
try
count:=1;
DataList:=TStringList.Create;
memo1.Clear;
do
c := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
//Load country.xml file
do
c.load('country.xml');
nlist:=doc.getElementsByTagName('Records');
memo1.lines.append('Table Name :country');
memo1.lines.append('---------------------');
for i:=0 to nlist.Get_length-1do

begin

travelChildren(nlist.Get_item(i).Get_childNodes);
//Removes the first character(,) from dataRecord
strData:=copy(dataRecord,2,length(dataRecord));
memo1.lines.append(strData);
dataRecord:='';
ret_val:=insertintotable(Datalist);
if ret_val=1 then

memo1.lines.append('Data inserted successfully.............!')
else
if ret_val=-1 then

memo1.lines.append('Error while updating.....Try again.....!');
memo1.lines.append('============================================='
+'==(Record no. :'+inttostr(count)+')');
DataList.Clear;
count:=count+1;
end;

except
on e:Exceptiondo

Showmessage(e.message);
end;

end;


nlist(refer above program) contains a list of nodes.In our case the first node list is...

<Records>
<Name>Argentina</Name>
<Capital>Buenos Aires</Capital>
<Continent>South America</Continent>
<Area>2777815</Area>
<Population>32300003</Population>
</Records>


我们传送此节点列表给一个递归函数,travelchildren。它将递归地沿着节点列表查找文本数据,并将此数据加入TStringList(Datalist)变量中。当完成第一轮后,Datalist中将会包含字符串 Argentina,Buenos Aires,South America,2777815,32300003.最后我们将此stringlist传送给函数 insertintotable,它将完成将一条记录插入 country 表的工作。重复此过程即可完成整个XML文件数据的插入工作。
procedure TForm1.travelChildren(nlist1:IXMLDOMNodeList);
var
j:Integer;
temp:String;
begin

for j:=0 to nlist1.Get_length-1do

begin

//node type 1 means an entity and node type 5 means EntityRef
if((nlist1.Get_item(j).Get_nodeType= 1) or (nlist1.Get_item(j).Get_nodeType=5)) then

travelChildren(nlist1.Get_item(j).Get_childNodes)
//node Type 3 means a text node,ie you find the data
else
if(nlist1.Get_item(j).Get_nodeType=3) then

begin

temp:= trim(nlist1.Get_item(j).Get_nodeValue);
dataRecord:=dataRecord+','+temp;
//this is for displaying a single record on the memo
DataList.Add(temp);
//Datalist will contain one record after completing one full travel through the node list
end
end;

end;


function TForm1.insertintotable(stpt:TStringList):Integer;
var
i:Integer;
begin

table1.close;
table1.open;
table1.Insert;
for i := 0 to stpt.Count - 1do

begin

table1.Fields.AsVariant:= stpt;
end;

try
table1.post;
result:=1;
except
on E:Exceptiondo

result:=-1;
end;

end;


结论:
你可以将此程序推广至任何数据库,由此数据可以通过XML文件在网络(即使是internet)中传输并在其实终端上更新数据库。我在生成XML文件中还未考虑特殊字符如 &amp;,<,>,',''等等。你可以在生成带这些字符的XML文件时作适合自己需要的改变.
 
多人接受答案了。
 
后退
顶部