Actualizando un Campo pasando Parametros con MyDac

[karlaoax]

Hola a todos, después de tanto andar con MyDac y MySQL empiezo poco a poco a entender este componente aunque me sigue fallando un poco mi programación . Vean tengo lo siguiente, Acabo de crear una tabla llamada AUTOS con los siguientes campos: Codigo,Cantidad,color y agregar
Autos
Codigo (txtcodigo)[Es un edit]
Cantidad (DBcantidad)[Es un DBedit3]
Color (DBcolor)[es un DBedit]
Agregar(txtagregar)[es un Edit]
Ahora lo que necesito es solamente ir incrementando mi campo CANTIDAD de acuerdo a lo que voy a ir agregando en el TXTAGREGAR. Ejemplo:

Si tengo 10 autos VW y agrego 2 mas en mi TXTAGREGAR, ahora debe mostrarme 12 en DBCANTIDAD.

He implementado lo siguiente:
1 MyQuery con el siguiente Código:

UPDATE autos
SET
cantidad = :cantidad + :agregar // Pasados como parametros
WHERE
codigo = :codigo // Pasado como parámetro

Se me hace que aqui debo implementar la clausula AS para guardar el valor de agregar, seguire analizando

En mi botón:

MyTable1.Edit;
QueryUpdate.Close;
QueryUpdate.SQL.Clear;
QueryUpdate.SQL.Text:='UPDATE autos SET cantidad='(+DBedit3.Text+)+(txtagregar))' WHERE codigo="'+txtcodigo.Text+'"';
QueryUpdate.Execute;
MyTable1.Post;
MyTable1.Refresh;

Tambien checando este codigo que implemento:
SQL.Add('UPDATE autos SET cantidad = cantidad + :agregar')
o
SQL.Add('UPDATE autos SET cantidad = cantidad + txtagregar')



Si el código de mi botón esta mal que es lo mas seguro, como puedo implementar la acción de sumar lo que tengo en DBCANTIDAD + TXTAGREGAR.

Gracias.

Atte.
Karla

[droguerman]

consejo, porque no usas format a veces las consultas salen más transparentes:

Código Delphi [-]

    QueryUpdate.SQL.Text:= format('UPDATE autos SET CANTIDAD=%d+%d WHERE codigo="%s" ', 
[ dbEdit3.field.asInteger, strToIntDef(txtAgregar.text, 0), txtCodigo.text ] );

bueno dije a veces

ah por cierto, en TDBEdit resulta mejor trabajar con la propiedad field que con el text

[karlaoax]

En este momento checando la sugerencia, y este codigo creado en MySQL

select SUM(cantidad)
as agregar // Aqui pongo la cantidad actual de autos
from autos
where codigo=:codigo


Ahora checare si lo obtenido se lo sumo a TXTAGREGAR

Sigo haciendo pruebas

[[Caral]]

Hola
No se me parece que algo pasa aqui:

Código SQL [-]
//MyTable1.Edit;
QueryUpdate.Close;
QueryUpdate.SQL.Clear;
QueryUpdate.SQL.Text:='UPDATE autos SET cantidad= '+QuotedStr(DBedit3.Text)+ + +QuotedStr(txtagregar)+' WHERE codigo="'+QuotedStr(txtcodigo.Text)+'"';
QueryUpdate.Execute;
//MyTable1.Post;

No lo he probado asi que pues dudas.
Saludos

[karlaoax]

Nop, de las dos sugerencias, no queda lo que deseo hacer, sigo revisando los errores

[karlaoax]

QueryUpdate.SQL.Text:='UPDATE productos SET stock= '+QuotedStr(DBedit3.Text)+ + +QuotedStr(txtagregar.Text)+' WHERE codigo="'+QuotedStr(txtcodigo.Text)+'"';


Duda, que me permite hacert QuoStr?
Necesito entenderlo por que me marca un error:
"INCOMPATIBLES TYPES: 'STRINGS' AND 'TEDIT'

[[egostar]]

Que se supone quieres hacer aqui

QuotedStr(DBedit3.Text)+ + +QuotedStr(txtagregar.Text)

No deberia de ser algo asi

QuotedStr(strtoint(DBedit3.Text)+strtoint(txtagregar.Text))

Porque me parece que no estas sumando valores, estas concatenado.

Salud OS.

[[egostar]]

Bueno,

Hice una prueba con tu sentencia SQL y aqui te pongo lo que paso.

Primero modifique tu linea, no me compila tal como la pones

QueryUpdate.SQL.Text:='UPDATE productos SET stock= '+QuotedStr(DBedit3.Text)+ + +QuotedStr(txtagregar.Text)+' WHERE codigo="'+QuotedStr(txtcodigo.Text)+'"';

los siignos de + rojos los quite y las " las cuales se sustituyen por la fuincion QuotedStr.

Código Delphi [-]
  //Sustitui los objetos por valores y quite algunos signos de +
  Cadena :='UPDATE productos SET stock= '+QuotedStr('123')+
           QuotedStr('567')+' WHERE codigo="'+QuotedStr('234');
  Memo1.Lines.Add(Cadena);
  Cadena :='UPDATE productos SET stock= '+
           QuotedStr(inttostr(strtoint('123')+strtoint('567')))+
           ' WHERE codigo='+QuotedStr('234');
  Memo1.Lines.Add(Cadena);

En el memo me sale esto, para cada sentencia

UPDATE productos SET stock= '123''567' WHERE codigo="'234'
UPDATE productos SET stock= '690' WHERE codigo='234'

No es lo mismo no crees.

Salud OS.

[karlaoax]

Analizando nuevamente la linea:

QueryUpdate.SQL.Text:='UPDATE productos SET stock= '+QuotedStr(strtoint(DBedit3.Text)+strtoint(txtagregar.Text)+' WHERE codigo="'+QuotedStr(txtcodigo.Text)+'"';

Me marca un error en: QuotedStr(txtcodigo.Text)+'"'

Incompatible types: 'String' and 'Integer'

Ya he checado vonviertiendolo a otro tipo, y nada

Sigo analizando

[karlaoax]

Gracias EgoStar checare tu linea

[[egostar]]

Checa el codigo que acabo de poner, yo creo que es la solución.

De todos modos lo pongo de nuevo con los objetos que estas usando.

Código Delphi [-]
  QueryUpdate.SQL.Text :='UPDATE productos SET stock= '+
           QuotedStr(inttostr(strtoint(DBedit3.Text)+strtoint(DBedit3.Text)))+
           ' WHERE codigo='+txtcodigo.Text;

Empezado por karlaoax

Me marca un error en: QuotedStr(txtcodigo.Text)+'"'

Incompatible types: 'String' and 'Integer'

El problema es que estas pasando el valor de codigo asi "123" y eso es un string no un entero.

Salud OS.

[karlaoax]

Muchas Gracias EgoStar, aqui pongo la modificacion:

QueryUpdate.Close;
QueryUpdate.SQL.Clear;
QueryUpdate.SQL.Text:='UPDATE productos SET stock= '+QuotedStr(inttostr(strtoint(DBedit3.Text)+strtoint(txtagregar.Text)))+' WHERE codigo='+txtcodigo2.Text;
QueryUpdate.Execute;

Codigo Funcionando al 100%

Gracias a todos los que me orientaron.

Solo una duda, no logro entender el funionamiento de QuotedStr

[[Caral]]

Hola
Muy cierto Egostar, el codigo modificado esta muy bien, bueno maestro al fin.
Con respecto a QuotedStr, se usa, bueno en este caso lo use, por el desconocimiento del campo, con esto parece hacer una traduccion o similar, egostar te puede decir mas.
Me alegro que allas resuelto el asunto.
Saludos

[[egostar]]

Pues solo basta con ver la ayuda de delphi.

QuotedStr Routine Returns the quoted version of a string.
Unit SysUtils

Syntax

[delphi]

function QuotedStr(const S: string): string;


Description Use QuotedStr to convert the string S to a quoted string. A single quote character (') is inserted at the beginning and end of S, and each single quote character in the string is repeated.

Note:
When working with multi-byte character systems (MBCS), use AnsiQuotedStr instead.


Salud OS.

[karlaoax]

Gracias por la explicacion

Gracias a todos los que me orientaron a traves de este codigo

Chocolates para todos