What does the XML record mean?

[dutch]

Dear All,

I would like to know XML record and how to write it.

Best regards,
Dutch

[Enrico Maria Giordano]

This is an easy way:

Code: Select all | Expand

#define adOpenForwardOnly 0#define adOpenKeyset      1#define adOpenDynamic     2#define adOpenStatic      3#define adLockReadOnly        1#define adLockPessimistic     2#define adLockOptimistic      3#define adLockBatchOptimistic 4#define adPersistXML 1FUNCTION MAIN()    LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )    FERASE( "TEST.XML" )    oRs:Open( "SELECT * FROM Test", "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\xharbour; Extended Properties=DBASE III", adOpenForwardOnly, adLockReadOnly )    oRs:Save( "TEST.XML", adPersistXML )    oRs:Close()    RETURN NIL

EMG

[James Bott]

Enrico,

Is this reading a Jet database or a DBF?

Is this for xHarbour only or will it run under Harbour also?

James

[James Bott]

Dutch,

There is a DBF to XML conversion program written in Clipper on my website (see button below).

James

[Enrico Maria Giordano]

Enrico,

Is this reading a Jet database or a DBF?

A DBF.

Is this for xHarbour only or will it run under Harbour also?

Also for Harbour but you will need to link hbole.lib and use TOleAuto():New() instead of CREATEOBJECT().

EMG

[dutch]

Dear Enrico & James,

Thanks a lot and I will try it.

Best regards,
Dutch