FiveTech Support Forums

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

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

Muchas Gracias Juan

Voy a probar

Saludos

Oscar

jnavas wrote: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