Generar archivos XML

[EASYSOFT]

Hola a todos
Por favor sabe alguien si puedo generar archivos XML
con Fwh 2.6 de Junio del 2005
y donde pudeo encontrar un ejemplo?


Gracias

Saludos
Oscar

[jnavas]

LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )
LOCAL cCon

DEFAULT cSql :="SELECT * FROM DPINV",;
cFileXml:="DPINV.XML",;
lOpen :=.T.

FERASE(cFileXml)

cCon:="Driver={MySQL ODBC 3.51 Driver}; Server="+oDp:cIp+"; Port=3306; Database="+oDp:cDsnData+"; Uid="+oDp:cLogin+"; Pwd="+oDp:cPass+";"

oRs:Open( cSql ,;
cCon ,;
adOpenForwardOnly, adLockReadOnly )

oRs:Save( cFileXml , adPersistXML )

oRs:Close()

IF lOpen
ShellExecute( 0, "open", cFileXml)
ENDIF

[EASYSOFT]

Muchas Gracias Juan

Voy a probar



Saludos

Oscar

[wmormar]

LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )
LOCAL cCon

DEFAULT cSql :="SELECT * FROM DPINV",;
cFileXml:="DPINV.XML",;
lOpen :=.T.

FERASE(cFileXml)

cCon:="Driver={MySQL ODBC 3.51 Driver}; Server="+oDp:cIp+"; Port=3306; Database="+oDp:cDsnData+"; Uid="+oDp:cLogin+"; Pwd="+oDp:cPass+";"

oRs:Open( cSql ,;
cCon ,;
adOpenForwardOnly, adLockReadOnly )

oRs:Save( cFileXml , adPersistXML )

oRs:Close()

IF lOpen
ShellExecute( 0, "open", cFileXml)
ENDIF

Juan,

y si fuera por ejemplo un documento de facturación, sin ADO, por ejemplo DBF?

Algun ejemplillo que tengas a la mano?

Saludos

Gracias de antemano