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 view  RUN

#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 1


FUNCTION 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