如何将数据保存为xml文件(100分)

lkm.424 · 2006-01-23

对啊就是ADOQuery1的SQL属性中的SQL语句啊
本来我写的是 select * from AA01
另外是不是跟我用的Access版本有关系啊我用的是Access2003

royal1442 · 2006-01-23

那就不知道了，反正在我这边可以的！下面是我保存的XML文件：
- <xml xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"
xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
xmlns:rs="urn:schemas-microsoft-com:rowset"
xmlns:z="#RowsetSchema">
- <s:Schema id="RowsetSchema">
- <s:ElementType name="row"
content="eltOnly"
rs:updatable="true">
- <s:AttributeType name="EmpNo"
rs:number="1"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="EmpNo"
rs:keycolumn="true">
<s:datatype dt:type="int"
dt:maxLength="4"
rs

recision="10"
rs:fixedlength="true"
/>
</s:AttributeType>
- <s:AttributeType name="LastName"
rs:number="2"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="LastName">
<s:datatype dt:type="string"
dt:maxLength="20"
/>
</s:AttributeType>
- <s:AttributeType name="FirstName"
rs:number="3"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="FirstName">
<s:datatype dt:type="string"
dt:maxLength="15"
/>
</s:AttributeType>
- <s:AttributeType name="PhoneExt"
rs:number="4"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="PhoneExt">
<s:datatype dt:type="string"
dt:maxLength="4"
/>
</s:AttributeType>
- <s:AttributeType name="HireDate"
rs:number="5"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="HireDate">
<s:datatype dt:type="dateTime"
rs:dbtype="variantdate"
dt:maxLength="16"
rs:fixedlength="true"
/>
</s:AttributeType>
- <s:AttributeType name="Salary"
rs:number="6"
rs:nullable="true"
rs:maydefer="true"
rs:writeunknown="true"
rs:basetable="employee"
rs:basecolumn="Salary">
<s:datatype dt:type="float"
dt:maxLength="8"
rs

recision="15"
rs:fixedlength="true"
/>
</s:AttributeType>
<s:extends type="rs:rowbase"
/>
</s:ElementType>
</s:Schema>
- <rs:data>
<z:row EmpNo="2"
LastName="Nelson"
FirstName="Roberto"
PhoneExt="250"
HireDate="1988-12-28T00:00:00"
Salary="40000"
/>
<z:row EmpNo="4"
LastName="Young"
FirstName="Bruce"
PhoneExt="233"
HireDate="1988-12-28T00:00:00"
Salary="55500"
/>
<z:row EmpNo="5"
LastName="Lambert"
FirstName="Kim"
PhoneExt="22"
HireDate="1989-02-06T00:00:00"
Salary="25000"
/>
<z:row EmpNo="8"
LastName="Johnson"
FirstName="Leslie"
PhoneExt="410"
HireDate="1989-04-05T00:00:00"
Salary="25050"
/>
<z:row EmpNo="9"
LastName="Forest"
FirstName="Phil"
PhoneExt="229"
HireDate="1989-04-17T00:00:00"
Salary="25050"
/>
<z:row EmpNo="11"
LastName="Weston"
FirstName="K. J."
PhoneExt="34"
HireDate="1990-01-17T00:00:00"
Salary="33292.9375"
/>
<z:row EmpNo="12"
LastName="Lee"
FirstName="Terri"
PhoneExt="256"
HireDate="1990-05-01T00:00:00"
Salary="45332"
/>
<z:row EmpNo="14"
LastName="Hall"
FirstName="Stewart"
PhoneExt="227"
HireDate="1990-06-04T00:00:00"
Salary="34482.625"
/>
<z:row EmpNo="15"
LastName="Young"
FirstName="Katherine"
PhoneExt="231"
HireDate="1990-06-14T00:00:00"
Salary="24400"
/>
<z:row EmpNo="20"
LastName="Papadopoulos"
FirstName="Chris"
PhoneExt="887"
HireDate="1990-01-01T00:00:00"
Salary="25050"
/>
<z:row EmpNo="24"
LastName="Fisher"
FirstName="Pete"
PhoneExt="888"
HireDate="1990-09-12T00:00:00"
Salary="23040"
/>
<z:row EmpNo="28"
LastName="Bennet"
FirstName="Ann"
PhoneExt="5"
HireDate="1991-02-01T00:00:00"
Salary="34482.800000000003"
/>
<z:row EmpNo="29"
LastName="De Souza"
FirstName="Roger"
PhoneExt="288"
HireDate="1991-02-18T00:00:00"
Salary="25500"
/>
<z:row EmpNo="34"
LastName="Baldwin"
FirstName="Janet"
PhoneExt="2"
HireDate="1991-03-21T00:00:00"
Salary="23300"
/>
<z:row EmpNo="36"
LastName="Reeves"
FirstName="Roger"
PhoneExt="6"
HireDate="1991-04-25T00:00:00"
Salary="33620"
/>
<z:row EmpNo="37"
LastName="Stansbury"
FirstName="Willie"
PhoneExt="7"
HireDate="1991-04-25T00:00:00"
Salary="39224"
/>
<z:row EmpNo="44"
LastName="Phong"
FirstName="Leslie"
PhoneExt="216"
HireDate="1991-06-03T00:00:00"
Salary="40350"
/>
<z:row EmpNo="45"
LastName="Ramanathan"
FirstName="Ashok"
PhoneExt="209"
HireDate="1991-08-01T00:00:00"
Salary="33292.940000000002"
/>
<z:row EmpNo="46"
LastName="Steadman"
FirstName="Walter"
PhoneExt="210"
HireDate="1991-08-09T00:00:00"
Salary="19599"
/>
<z:row EmpNo="52"
LastName="Nordstrom"
FirstName="Carol"
PhoneExt="420"
HireDate="1991-10-02T00:00:00"
Salary="4500"
/>
<z:row EmpNo="61"
LastName="Leung"
FirstName="Luke"
PhoneExt="3"
HireDate="1992-02-18T00:00:00"
Salary="34500"
/>
<z:row EmpNo="65"
LastName="O'Brien"
FirstName="Sue Anne"
PhoneExt="877"
HireDate="1992-03-23T00:00:00"
Salary="31275"
/>
<z:row EmpNo="71"
LastName="Burbank"
FirstName="Jennifer M."
PhoneExt="289"
HireDate="1992-04-15T00:00:00"
Salary="45332"
/>
<z:row EmpNo="72"
LastName="Sutherland"
FirstName="Claudia"
HireDate="1992-04-20T00:00:00"
Salary="35699"
/>
<z:row EmpNo="83"
LastName="Bishop"
FirstName="Dana"
PhoneExt="290"
HireDate="1992-06-01T00:00:00"
Salary="45000"
/>
<z:row EmpNo="85"
LastName="MacDonald"
FirstName="Mary S."
PhoneExt="477"
HireDate="1992-06-01T00:00:00"
Salary="35699"
/>
<z:row EmpNo="94"
LastName="Williams"
FirstName="Randy"
PhoneExt="892"
HireDate="1992-08-08T00:00:00"
Salary="28900"
/>
<z:row EmpNo="105"
LastName="Bender"
FirstName="Oliver H."
PhoneExt="255"
HireDate="1992-10-08T00:00:00"
Salary="36799"
/>
<z:row EmpNo="107"
LastName="Cook"
FirstName="Kevin"
PhoneExt="894"
HireDate="1993-02-01T00:00:00"
Salary="35500"
/>
<z:row EmpNo="109"
LastName="Brown"
FirstName="Kelly"
PhoneExt="202"
HireDate="1993-02-04T00:00:00"
Salary="27000"
/>
<z:row EmpNo="110"
LastName="Ichida"
FirstName="Yuki"
PhoneExt="22"
HireDate="1993-02-04T00:00:00"
Salary="25689"
/>
<z:row EmpNo="113"
LastName="Page"
FirstName="Mary"
PhoneExt="845"
HireDate="1993-04-12T00:00:00"
Salary="48000"
/>
<z:row EmpNo="114"
LastName="Parker"
FirstName="Bill"
PhoneExt="247"
HireDate="1993-06-01T00:00:00"
Salary="35000"
/>
<z:row EmpNo="118"
LastName="Yamamoto"
FirstName="Takashi"
PhoneExt="23"
HireDate="1993-07-01T00:00:00"
Salary="32500"
/>
<z:row EmpNo="121"
LastName="Ferrari"
FirstName="Roberto"
PhoneExt="1"
HireDate="1993-07-12T00:00:00"
Salary="40500"
/>
<z:row EmpNo="127"
LastName="Yanowski"
FirstName="Michael"
PhoneExt="492"
HireDate="1993-08-09T00:00:00"
Salary="44000"
/>
<z:row EmpNo="134"
LastName="Glon"
FirstName="Jacques"
HireDate="1993-08-23T00:00:00"
Salary="24855"
/>
<z:row EmpNo="136"
LastName="Johnson"
FirstName="Scott"
PhoneExt="265"
HireDate="1993-09-13T00:00:00"
Salary="30588.990000000002"
/>
<z:row EmpNo="138"
LastName="Green"
FirstName="T.J."
PhoneExt="218"
HireDate="1993-11-01T00:00:00"
Salary="36000"
/>
<z:row EmpNo="141"
LastName="Osborne"
FirstName="Pierre"
HireDate="1994-01-03T00:00:00"
Salary="35600"
/>
<z:row EmpNo="144"
LastName="Montgomery"
FirstName="John"
PhoneExt="820"
HireDate="1994-03-30T00:00:00"
Salary="35699"
/>
<z:row EmpNo="145"
LastName="Guckenheimer"
FirstName="Mark"
PhoneExt="221"
HireDate="1994-05-02T00:00:00"
Salary="32000"
/>
</rs:data>
</xml>

lkm.424 · 2006-01-23

royal1442的方法我也试过了在SQL Server下可以Access下还是不行啊
我的机器环境试Win2000Server +SP4
Delphi7,office2003

royal1442 · 2006-01-23

报错了嘛？

lkm.424 · 2006-01-23

同样的错误 !!

lkm.424 · 2006-01-23

我把文件名称改为:'c:/x.xml' 还是那个错误

royal1442 · 2006-01-23

你把主要的源码贴出来看看啊！◎

lkm.424 · 2006-01-23

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ADOTable1: TADOTable;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.LoadFromFile('C:/x.XML');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
adoQuery1.SaveToFile('C:/x.XML', pfXML);
end;

end.

就是两个按钮的click2事件

XUEXI666 · 2006-01-23

你把Adoquery1关闭呢

royal1442 · 2006-01-23

ADOQuery1确定已经打开了吗？

lkm.424 · 2006-01-23

那样也不行的,提示'Cannot perform this operation on a closed dataset '

royal1442 · 2006-01-23

ADOQuery1 必须在Active 为True的时候才能保存！

lkm.424 · 2006-01-23

procedure TForm1.Button1Click(Sender: TObject);
begin
adoQuery1.Open:=True;
adoQuery1.SaveToFile('C:/x.XML', pfXML);
end;

royal1442 · 2006-01-23

晕倒了！“adoQuery1.Open:=True;”这样写不报错？

lkm.424 · 2006-01-23

不好意思见笑了
procedure TForm1.Button1Click(Sender: TObject);
begin
adoQuery1.Open;
adoQuery1.SaveToFile('C:/x.XML', pfXML);
end;

chnplzh · 2006-01-23

以下摘自ADODB.pas单元，应该可以支持Access数据库：
procedure TCustomADODataSet.SaveToFile(const FileName: WideString;
Format: TPersistFormat);
begin
CheckBrowseMode;
if FileExists(FileName) then
DeleteFile(FileName);
if LowerCase(ExtractFileExt(FileName)) = '.xml' then
Format := pfXML;
Recordset.Save(FileName, PersistFormatEnum(Format));
CursorPosChanged;
end;

lkm.424 · 2006-01-23

谢谢 chnplzh, 这个我已经看过了!可还是不知道为什么出错
我在别的机器上也试验了也试不行

royal1442 · 2006-01-23

adoQuery1能正确Open，且包含数据吗？

lkm.424 · 2006-01-23

我看过了包含数据啊
我用dbGrid显示的啊

lkm.424 · 2006-01-24

问题解决了。发分

如何将数据保存为xml文件(100分)

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

XUEXI666

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

lkm.424

Unregistered / Unconfirmed

Similar threads