Remplazar objetos del form
Publicado por LOLY (103 intervenciones) el 16/10/2010 02:50:00
HOLA BUENS NOCHES...
Me da mucho gusto saludarles... aqui estoy de nuevo poniendo gorro... je je je...
Necesito remplazar campos en una table de Mysql y no encuentro la manera de insertar el valor de los combos, asi como Date(), Time(), en la CADENA para enviarla al mysql
tengo que hacer esto antes...
tLinea=Alltr(Thisform.Combo1.Value)
tTipo=Alltr(Thisform.Combo2.Value)
tCajero=Alltr(Thisform.Combo3.Value)
tfecha=Date()
lGraba="INSERT INTO VENTAS(FOLIO, FECHA, CANT, CODIGO, ARTICULO, VLINEA, PRECIO,"+;
"TOTAL, TIPO, ESTADO, VCAJERO) VALUES(?tfol, ?tfecha, ?nCant, ?nCodigo, ?tArtic,"+;
"?tLinea, ?tPrecio, ?tTotal, ?tTipo, ?tEdo, ?tCajero)"
Try
SQLPREPARE(con,lGraba)
SQLEXEC(con)
Catch
messax.......
Endry
Lo que deso es meter en la cadena el alltr(thisform.Combox.Value) si tener que asignarle variable, asi como también los Date() o los Time()
Gracias amigos...
Me da mucho gusto saludarles... aqui estoy de nuevo poniendo gorro... je je je...
Necesito remplazar campos en una table de Mysql y no encuentro la manera de insertar el valor de los combos, asi como Date(), Time(), en la CADENA para enviarla al mysql
tengo que hacer esto antes...
tLinea=Alltr(Thisform.Combo1.Value)
tTipo=Alltr(Thisform.Combo2.Value)
tCajero=Alltr(Thisform.Combo3.Value)
tfecha=Date()
lGraba="INSERT INTO VENTAS(FOLIO, FECHA, CANT, CODIGO, ARTICULO, VLINEA, PRECIO,"+;
"TOTAL, TIPO, ESTADO, VCAJERO) VALUES(?tfol, ?tfecha, ?nCant, ?nCodigo, ?tArtic,"+;
"?tLinea, ?tPrecio, ?tTotal, ?tTipo, ?tEdo, ?tCajero)"
Try
SQLPREPARE(con,lGraba)
SQLEXEC(con)
Catch
messax.......
Endry
Lo que deso es meter en la cadena el alltr(thisform.Combox.Value) si tener que asignarle variable, asi como también los Date() o los Time()
Gracias amigos...
Valora esta pregunta


0