Привет. Есть SQL запрос, возвращающий XML. Как на C++ Builder 6 сохранить результаты запроса в файл?

Через ADOQuery + DataSetProvider + ClientDataSet

Вот SQL запрос:

DECLARE
@xml xml
SELECT 1 AS '@BEGIN'
,1 AS 'EDI_DC40/@SEGMENT'
,'EDI_DC40' AS 'EDI_DC40/TABNAM'
,200 AS 'EDI_DC40/MANDT'
,0 AS 'EDI_DC40/DOCNUM'
,100 AS 'EDI_DC40/DOCREL'
,'' AS 'EDI_DC40/STATUS'
,100 AS 'EDI_DC40/DIRECT'
,'' AS 'EDI_DC40/OUTMOD'
,'WPUBON01' AS 'EDI_DC40/IDOCTYP'
,'WPUBON' AS 'EDI_DC40/MESTYP'
,'SAPIN' AS 'EDI_DC40/SNDPOR'
,'KU' AS 'EDI_DC40/SNDPRT'
,10 AS 'EDI_DC40/SNDPRN'
,'SAPIN' AS 'EDI_DC40/RCVPOR'
,'KU' AS 'EDI_DC40/RCVPRT'
,20 AS 'EDI_DC40/RCVPRN'
,20070619 AS 'EDI_DC40/CREDAT'
,20070619 AS 'EDI_DC40/CRETIM'
,0 AS 'EDI_DC40/SERIAL'
FOR XML PATH('IDOC'), ROOT('WPUBON01'), TYPE

Выполни его в MS Server Managment Studio и в качестве результата получишь xml, вот его-то и надо выкинуть в Builder 6

Все оказалось гораздо проще.
AnsiString xml;
ADOQueryExport->Active = true;
ADOQueryExport->ExecSQL();
xml = ADOQueryExport->FieldByName("COLUMN1")->AsString;
ADOQueryExport->Active = false;
try{
iDOCExport->LoadFromXML(xml.Insert("<?xml version=\"1.0\" encoding=\"UTF-8\"?>", 1));
iDOCExport->SaveToFile(iDOCDir->Text + "\\TestExport.xml");
catch(...)