Actualizando un Campo pasando Parametros con MyDac

[[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]

Gracias EgoStar checare tu linea

[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

[[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