word2003下建立xml文档 ( 积分: 200 )

  • 主题发起人 主题发起人 xiehuadong
  • 开始时间 开始时间
X

xiehuadong

Unregistered / Unconfirmed
GUEST, unregistred user!
请问题,如何在word2003上建立xml文档,有如何根椐建立的文档,生成相应的数据库.
比如我建一个人员档案的文档,然后根椐这个文档,生成一个表
请高手指教,
当然如果可以用其它类似于word的方法,也可以
 
请问题,如何在word2003上建立xml文档,有如何根椐建立的文档,生成相应的数据库.
比如我建一个人员档案的文档,然后根椐这个文档,生成一个表
请高手指教,
当然如果可以用其它类似于word的方法,也可以
 
这个似乎不应该用WORD吧.用EXCEL更好.
OFFICE2003支持XML其实主要是他们可以把文件存成XML的格式,这样其他文字处理程序或者第三方应用程序就可以直接利用XML解析其内容.不用在二进制层面去做了.至于如何去做,在MS的网站上有资料.
 
当然,用excel更好,请再指教
 
excel另存为里面有xm类型,如果通过com方式可以指定文件类型为xlXMLSpreadsheet
那么表格就成了xml方式了
不知道是不是楼主要的东西
 
http://www.delphibbs.com/keylife/iblog_show.asp?xid=17482
KeyLife富翁笔记
作者?: cactus123456
标题?: delphi操作xml学习笔记
 
有点复杂,没怎么看懂,
我的意思是,1.我用word或者excl写一个文档,如人员档案,
然后根椐这个文档,动态生成相应的数据库.
2.再根椐数据库生成程序的录入界面(这一步我已实现)
第一步行不行?
 
我用word或者excl写一个文档,如人员档案,
然后根椐这个文档,动态生成相应的数据库.
Execl可以当成普通的表那样操作的
procedure TForm1.Button2Click(Sender: TObject);
var
ADOQry: TADOQuery;
strConn: string;
begin
if not OpenDialog1.Execute then
Exit;
str := OpenDialog1.FileName;
ADOQry := TADOQuery.Create(nil);
try
strConn := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + OpenDialog1.FileName
+ ';Extended Properties=Excel 8.0;Persist Security Info=False';
ADOQry.ConnectionString := strConn;
ADOQry.SQL.Text := 'select * from [sheet1$]';
ADOQry.Open;
ADOQry.First;
while not ADOQry.Eofdo
begin
Memo1.Lines.Add(ADOQry.Fields.Fields[0].AsString);
ADOQry.Next;
end;
finally
ADOQry.Free;
end;
end;
 
后退
顶部