duda de Update usando label.caption

[giantonti1801]

Buena noche no logro congeniar con esta formula:
Quiere hacer un Update en la base de dato SQL de algunos campo:

        begin
        ADOQueryUpdate.SQL.Clear;
        ADOQueryUpdate.SQL.Add( 'UPDATE Tiket SET' );
        ADOQueryUpdate.SQL.Add( 'Estatus = 'OLD');
        ADOQueryUpdate.SQL.Add(' WHERE Item = ' +Trim(Label3.Caption));
        ADOQueryUpdate.ExecSQL;
        //ADOQueryUpdate.Refresh;
        end;

el acxion se ejecuta con un Speedbuton

En el label3 tengo el numero de registro dentro de la base de datos llamado ITEM, esta imformacion es traida por otra consulta SQL la cual Funciona sin ningun problema.
Lo que pretendo hacer es hacer un UPDATE de la tabla TIKET donde le cambio el valor que tiene el campo ESTATUS a 'OLD' especificamente del registro contenido dentro de Label3.caption, Claro esta que tebo modificar otros campos tambien con la misma condicion todos contenidos en los label.caption. pero ahora queria probar con uno solo y si funcionaba le agtregaba lo demas. Al momento de ejecutarlo me da un error que dice que no consigue el campo OLD.
Aqui donde digo yo, 'los misterios del SQL son infinito'.....

[dec]

Hola a todos,

Si no me equivoco, lo que ocurre es que las comillas no están bien utilizadas, al menos en esta parte:

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = 'OLD');

De hecho... no sé cómo te compila eso... pero en fin, sea como sea, creo que al menos esa parte de la consulta debería quedar así:

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = "OLD"');

... puesto que el error se refiere a que se está usando "OLD" literalmente, como si fuese el nombre de un "campo", y, por eso no encuentra ese "campo". En la posible solución "OLD" se encierra entre comillas, de modo que ya no se trata de un "campo", sino del valor que le quieres dar al campo "Estatus".

Investiga en todo caso sobre cómo "parametrizar" consultas SQL en Delphi, puesto que considero que se evitan problemas de este tipo y se obtienen mejores garantías de que las consultas van a funcionar y además las propias consultas quedan "más elegantes".

[[kuan-yiu]]

Comillas.

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = 'OLD');

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = "OLD" ');
ADOQueryUpdate.SQL.Add( 'Estatus = ' +QuotedStr('OLD'));

Y de paso parametriza, que siempre es buena idea:

Código Delphi [-]
ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
 ParamByName('valor').AsString := Trim(Label3.Caption);

[dec]

Hola a todos,

Originally Posted by kuan-yiu

Y de paso parametriza, que siempre es buena idea:

Código Delphi [-]
ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
 ParamByName('valor').AsString := Trim(Label3.Caption);

¡Haz caso a quien sabe!

[giantonti1801]

Originally Posted by kuan-yiu

Comillas.

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = 'OLD');

Código Delphi [-]
ADOQueryUpdate.SQL.Add( 'Estatus = "OLD" ');
ADOQueryUpdate.SQL.Add( 'Estatus = ' +QuotedStr('OLD'));

Y de paso parametriza, que siempre es buena idea:

Código Delphi [-]
ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
 ParamByName('valor').AsString := Trim(Label3.Caption);

Gracias por responder amigo:
Aun no me rindo, pero aun tampoco tengo la solucion colocando el codigo tal cual tu mencionaste me da un erro que lo voy a adjuntar

begin
        Close;
        ADOQueryUpdate.SQL.Clear;
        ADOQueryUpdate.SQL.Add( 'UPDATE Tiket SET');
        ADOQueryUpdate.SQL.Add( 'Estatus = "OLD" ');
        ADOQueryUpdate.SQL.Add( 'Estatus = ' +QuotedStr('OLD'));
        ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
        ADOQueryUpdate.Parameters.ParamByName('Valor').Value := StrToInt(Label3.Caption);
        ADOQueryUpdate.ExecSQL;
        end;

Hay una cosa que no entiendo del código y talvez alli el error

Código Delphi [-]
ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');

yo no temg ningún campo o resultado que se llame 'valor', por lo que puedo asumir que este 'valor' sea una constante que abajo se le esta pasando el valor contenido en el Label3.caption, y de ser asi en el futuro tengo que hacer lo mismo con cada campo a la cual le voy a pasar el valor de un label?

Yo no se y quiero entender como una instrucion tan simple el SQL

Código SQL [-]
 Update Tiket set Estatus = 'NEW' Where Item = '2'

donde solo quiero cambiar el valor que esta en el 2 y colocarle un valor contenido en un label se ha convertido en un problema

[[kuan-yiu]]

Puse dos opciones para la misma linea, jeje, no tienes que usar las dos, sino la que prefieras: con comillas o con QuotedStr (que es la que a mi me gusta más).
Por eso te da error, piensa que son dos campos y espera una coma en medio.

[giantonti1801]

Originally Posted by kuan-yiu

Puse dos opciones para la misma linea, jeje, no tienes que usar las dos, sino la que prefieras: con comillas o con QuotedStr (que es la que a mi me gusta más).
Por eso te da error, piensa que son dos campos y espera una coma en medio.

Si puedo entender eso pero a cual te refiere, talvez seria de ayuda si escribiera el codigo tal cual como deberia ir.

Muchas gracias por tu ayuda

[giantonti1801]

Originally Posted by giantonti1801

Si puedo entender eso pero a cual te refiere, talvez seria de ayuda si escribiera el codigo tal cual como deberia ir.

Muchas gracias por tu ayuda

Listo, ya con tu ayuda pude resolver el problema, muchissimas gracias....

Código Delphi [-]
begin
        Close;
        ADOQueryUpdate.SQL.Clear;
        ADOQueryUpdate.SQL.Add( 'UPDATE Tiket SET');
        ADOQueryUpdate.SQL.Add( 'Estatus = ' +QuotedStr('OLD'));
        ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
        ADOQueryUpdate.Parameters.ParamByName('Valor').Value := StrToInt(Label3.Caption);
        ADOQueryUpdate.ExecSQL;
        end;

Para ayudar a otros foreros que tengan el mismo problema el codigo quedo Asi.

[Casimiro Noteví]

Originally Posted by giantonti1801

...

Creo que ya es momento de que le eches un vistazo a nuestra guía de estilo, gracias.