FiveTech Software tech support forums

Posted: **Tue Aug 01, 2006 9:04 am**

Dear All,

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

Best regards,
Dutch

Posted: **Tue Aug 01, 2006 10:05 am**

This is an easy way:

#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

Posted: **Tue Aug 01, 2006 5:59 pm**

Enrico,

Is this reading a Jet database or a DBF?

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

James

Posted: **Tue Aug 01, 2006 6:01 pm**

Dutch,

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

James

Posted: **Tue Aug 01, 2006 6:06 pm**

James Bott wrote:Enrico,

Is this reading a Jet database or a DBF?

A DBF.

James Bott wrote: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

Posted: **Wed Aug 02, 2006 4:03 pm**

Dear Enrico & James,

Thanks a lot and I will try it.

Best regards,
Dutch

FiveTech Software tech support forums

What does the XML record mean?

What does the XML record mean?

Re: What does the XML record mean?

Thanks a lot