Page 1 of 1
Generar archivos XML
Posted: Sun Apr 09, 2006 11:15 pm
by 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
_
Aqui tienes un Ejemplo
Posted: Mon Apr 10, 2006 2:22 pm
by 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
Posted: Tue Apr 11, 2006 12:14 am
by EASYSOFT
Muchas Gracias Juan
Voy a probar
Saludos
_
Re: Aqui tienes un Ejemplo
Posted: Tue Apr 11, 2006 3:07 am
by wmormar
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