各位先進：      小弟不才，目前在SQL Server上使用Query Analyzer執行以下的查詢 "Select * from Customer For XML auto"，是可以看到XML的輸出結果，但是確不知如何在Delphi中取得該XML字串，有請先進賜教！

Hi, 一樣地, 使用 TADOQuery 取回, 但只會有一個欄位, 將其值取出即可, 如,    

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text := 'Select * from Customer For XML auto';
  ADOQuery1.Open;
  Memo1.Lines.Text := ADOQuery1.Fields[0].AsString;  //get the xml data
  ADOQuery1.Close;
end;

感謝timhuang： 依照您的Sample取到"DC"二字 ??? 後來我調整了一下： procedure TForm1.Button2Click(Sender: TObject); begin // ADOQuery1.SQL.Text := 'Select CustomerID from Customers'; ADOQuery1.SQL.Text := 'Select CustomerID from Customers For XML auto'; ADOQuery1.Open; // Memo1.Lines.Text := ADOQuery1.Fields[0].AsString; //get the xml data Memo1.Lines.Text := ADOQuery1.Recordset.Fields[0].Value; ADOQuery1.Close; end; 疑~~~拿到了~~亂碼： ?CustomerID?Customers?????????????一??刀?????一?伀一?........ 但正確的內容應是： ＜Customers CustomerID="ALFKI"/＞＜Customers CustomerID="ANATR"/＞＜Customers CustomerID="ANTON"/＞＜Cu...... 是否還有什麼應該注意的呢？

Hi ChrisChen 您好: 換個方式

procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOQuery1.SQL.Text := 'Select CustomerID from Customers For XML auto';
   ADOQuery1.Open;
   ADOQuery1.SaveToFile('C:\test.xml', pfXML);
   Memo1.Lines.LoadFromFile('C:\test.xml');
   ADOQuery1.Close;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Hi! Miles，先謝過   不過，這個方法在先前我有試過，但是使用ADO的SaveToFile存下來的XML會有一堆namespace定義，造成了處理上的困難；目前如果依照timhuang提的方式由欄位取出感覺應該是我要的，但目前遇上的問題是取出來的值(字串)編碼好像不對了......因為如果去看取出的值(字串)的Hex如下： "440a43007500730074006f006d006500720049004400440943007500730074006f006d00650072007300010202010e0a.........." 現在如果能夠還原這個編碼就應該是結果了......

先進們！原諒我的豬頭，現在才結案...無論什麼理由，基本上是我的錯！ 這個問題後來我還是自己直接寫程式排除了！但是 > 分數不能選[ >