Good Day

Can some one guide me that how can we transfer data from Ms Acess table to an XML File using VB6.

Regards


____________________________
@#@#@

Open a recordset and save it to xml format (ADO 2.6+)

Dim rs As Recordset     Dim db As ADODB.Connection          Set rs = db.Execute("SELECT * FROM MyTable")     rs.Save "c:\fred.xml", adPersistXML

Hope this helps,
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

The output with rs.save is followig

***********OUTPUT*******************************
<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='UserID' rs:number='1' rs:nullable='true' rs:maydefer='true' rs:writeunknown='true' rs:basetable='usr'
rs:basecolumn='UserID' rs:keycolumn='true'>
<s:datatype dt:type='string' dt:maxLength='10'/>
</s:AttributeType>
<s:AttributeType name='username' rs:number='2' rs:nullable='true' rs:maydefer='true' rs:writeunknown='true'
rs:basetable='usr' rs:basecolumn='username'>
<s:datatype dt:type='string' dt:maxLength='70'/>
</s:AttributeType>
<s:AttributeType name='Password' rs:number='3' rs:nullable='true' rs:maydefer='true' rs:writeunknown='true'
rs:basetable='usr' rs:basecolumn='Password'>
<s:datatype dt:type='string' dt:maxLength='20'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row UserID='admin' username='admin' Password=''/>
<z:row UserID='abc' username='xyz' Password='123'/>
</rs:data>
</xml>


But i only need fields name and Data

***************Required output************************
<xml
< UserID='admin' username='Admin' Password=''/>
< UserID='abc' username='xyz' Password='123' />
</xml>
**************************************************


[Edited by ahmad on 26-07-2007 at 11:37 AM GMT]

____________________________
@#@#@

OK
This code will output xml from a recordset RS.

dim fout as integer dim rs as recordset dim fld as field fout=freefile open "c:\fred.xml" for output as fout print #fout,"<XML>" while not (rs.eof)   print #fout, "<ROW ";   for each fld in rs.fields     print #fout, fld.name ; "="""; fld.value;""" "   next fld   print #fout, "/>"   rs.movenext wend print #fout,"</XML>" close fout

Note
This code will cause invalid XML if the fld.name has spaces in it, or the value contains reserved characters (like '<', qoutes, etc.)



[Edited by stickleprojects on 26-07-2007 at 08:17 AM GMT]

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)