sqlexp = ""
sqlexp = sqlexp + "UPDATE parsysc SET "
sqlexp = sqlexp + "parsysc.imagen =
'"+sqlalpha(thisform.Clstextbox4.value)+"', "
sqlexp = sqlexp + "parsysc.gridbackcolor =
'"+str(thisform.txtGridBackColor.Value)+"', "
sqlexp = sqlexp + "parsysc.longminpsw=
'"+ALLTRIM(STR(thisform.txtLongMinPsw.Value))+"', "
sqlexp = sqlexp + "parsysc.diasvence=
'"+ALLTRIM(STR(thisform.txtDiasVence.Value))+"', "
sqlexp = sqlexp + "parsysc.pswvence=
'"+sqlalpha(thisform.cboPswVence.Value)+"', "
sqlexp = sqlexp + "parsysc.pswreglas=
'"+sqlalpha(thisform.cboPswReglas.Value)+"', "
sqlexp = sqlexp + "parsysc.pswrepite=
'"+sqlalpha(thisform.cboPswRepite.Value)+"', "
sqlexp = sqlexp + "parsysc.empresa=
'"+sqlalpha(thisform.txtempresa.Value)+"', "
sqlexp = sqlexp + "parsysc.ganancia=
'"+sqlalpha(thisform.txtganancia.Value)+"', "
sqlexp = sqlexp + "parsysc.factura=
'"+sqlalpha(thisform.txtfactura.Value)+"', "
*****
sqlexp = sqlexp + "parsysc.cheque=
'"+str(thisform.txtcheque.value,12,2)+"', "
sqlexp = sqlexp + "parsysc.Descr= '"+sqlalpha(thisform.txtdescr.Value)+"',
"
sqlexp = sqlexp + "parsysc.iva= '"+str(thisform.txtiva.value,12,2)+"', "
sqlexp = sqlexp + "parsysc.despacho=
'"+str(thisform.txtdespacho.Value,20,0)+"', "
sqlexp = sqlexp + "parsysc.cotiza=
'"+str(thisform.txtcotiza.Value,20,0)+"', "
sqlexp = sqlexp + "parsysc.direccion=
'"+sqlalpha(thisform.txtdireccion.Value)+"', "
sqlexp = sqlexp + "parsysc.Mail= '"+sqlalpha(thisform.txtmail.Value)+"', "
sqlexp = sqlexp + "parsysc.vence=
'"+sqlalpha(thisform.Clscombobox1.Value)+"', "
sqlexp = sqlexp + "parsysc.garantia=
'"+sqlalpha(thisform.Clscombobox2.Value)+"', "
sqlexp = sqlexp + "parsysc.titulo1 =
'"+sqlalpha(thisform.txttitulo1.value)+"', "
*****
sqlexp = sqlexp + "parsysc.pswfrmmnt=
'"+sqlalpha(thisform.cboPswFrmMnt.Value)+"' "
sqlexp = sqlexp + ""
sqlres = sqlexec(thisform.sqlhandler,sqlexp,'curAct')
if sqlres < 0
do errmgr with sqlexp
return .f.
ENDIF
______________________________________
Sergio A. García
Gerencia
in...@magicsoft.com.gt
Magicsoft de Guatemala
30 Avenida A 17-80 Zona 7 Villa Linda I, Guatemala / 9 calle 7-65 Zona 1,
Jutiapa
Tlf: 5527-4094 · Fax: 7844-3805
in...@magicsoft.com.gt · www.magicsoft.com.gt
No me imprimas si no es necesario. Protejamos el medio ambiente
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de pablo b(La Pampa)
Enviado el: sábado, 16 de julio de 2011 09:48 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Ayuda o ejemplo de Update con MySql
Muchas Gracias
Pablo
Argentina
__________ Información de NOD32, revisión 6299 (20110716) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
Yo utilizo vfp6, y este comando me sirve para actualizar mi tabla de factura
en MySql.
paso 1) muevo los datos que quiero actualizar a una variables
paso 2) armo la instrucci�n update // update tabla set campo1 = ?vcampo1
( no te olvides del signo de interrogacion antes de la variable )
paso 3) ejecuto la actualizaci�n con el comando SQLEXEC(lnHandle, m.lcSQL)
***** Ejemplo ******
** paso1 **
vnrofac = thisform.txtnrofac.value
vfecpag = thisform.txtfecpag.value
vimppag = thisform.txtimppag.value
vvuelto = thisform.txtvuelto.value
vsaldo = thisform.txtsaldo.value
vnrorec = thisform.txtnrorec.value
vefectivo = thisform.txtefectivo.value
thisform.txtpagado.value = "SI"
vpagado = "SI"
** paso 2 **
m.lcSQL = "update factura set pagado = ?vpagado, fecpag = ?vfecpag, "
m.lcSQL = m.lcSQL + " imppag = ?vimppag, vuelto = ?vvuelto, saldo = ?vsaldo,
nrorec = ?vnrorec, "
m.lcSQL = m.lcSQL + " efectivo = ?vefectivo, ualtpag = ?vuser where nrofac =
?vnrofac"
** paso 3 **
m.llRetorno = (SQLEXEC(lnHandle, m.lcSQL) > -1)
if m.llRetorno
wait window "Registro Grabado ..." timeout .20
endif
***
Slds. Patricio-Py
--------------------------------------------------
From: "sergio garcia" <in...@magicsoft.com.gt>
Sent: Saturday, July 16, 2011 1:23 PM
To: <publice...@googlegroups.com>
Subject: RE: [vfp] Ayuda o ejemplo de Update con MySql
> Sergio A. Garc�a
> Gerencia
> in...@magicsoft.com.gt
> Magicsoft de Guatemala
> 30 Avenida A 17-80 Zona 7 Villa Linda I, Guatemala / 9 calle 7-65 Zona 1,
> Jutiapa
> Tlf: 5527-4094 � Fax: 7844-3805
> in...@magicsoft.com.gt � www.magicsoft.com.gt
> No me imprimas si no es necesario. Protejamos el medio ambiente
>
> -----Mensaje original-----
> De: publice...@googlegroups.com
> [mailto:publice...@googlegroups.com] En nombre de pablo b(La Pampa)
> Enviado el: s�bado, 16 de julio de 2011 09:48 a.m.
> Para: Comunidad de Visual Foxpro en Espa�ol
> Asunto: [vfp] Ayuda o ejemplo de Update con MySql
>
> Hola Amigos del Foro, me estoy iniciando en el uso de MySql, lei poco
> es cierto, quiero conseguir el ebook que alguna vez se publico por aca
> pero no me lo mandan se llama "Desarrollo de app con foxpro y MySql"
> si alquien lo tiene y me lo puede enviar a term...@yahoo.com, muchas
> gracias
> el otro motivo por el cual les escribo es como hago para actualizar
> los datos ya existes en mi tabla usando el comando Update en una table
> creada en mysql, con el comando sqlexec.
> si me puden escribir un ejemplo, porque en la ayuda del vfp no esta
> usando sqlexec.
>
> Muchas Gracias
>
> Pablo
> Argentina
>
> __________ Informaci�n de NOD32, revisi�n 6299 (20110716) __________