5 respuestas en este tema

[Koalasoft]

Buenos dias estimados, tengo un detalle que por mas que busco no veo por donde tenga el error, quizá ustedes puedan detectarlo mejor ..

 

Lo que requiero es actualizar 3 campos solamente de una tabla dandoles el valor de Null osea sin valores, tengo lo siguiente:

delphi

with DMod1.ADOQueryCL do
   Begin
     Close;
     // Actualizamos Tabla Clientes dejando los campos en blanco
     SQL.Add('UPDATE `clientes` SET ');
     SQL.Add('FOLIO = NULL, INDEX_ID = NULL, ONT_ID = NULL ');
     SQL.Add(' WHERE ID_CL = ' + Trim(Label43.Caption));
     ExecSQL;
   end;

Los campos a actualizar son FOLIO, INDEX_ID y ONT_ID, todos ellos son de tipo Integer, donde la condición es que sea el ID del cliente (ID_CL) que lo he visualizado en un label (Label43.Caption)

 

Pero al correr el programa me marca error de sintaxis, en que parte estaré mal?

 

El mensaje manda lo siguiente:

 

 

---------------------------

Debugger Exception Notification

---------------------------

Project CTRO.exe raised exception class EOleException with message '[MySQL][ODBC 5.3(a) Driver][mysqld-5.5.5-10.0.10-MariaDB]You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near 'UPDATE `clientes` SET 

FOLIO = NULL, INDEX_ID = NULL, ONT_ID = NULL 

 WHERE ID' at line 2'. Process stopped. Use Step or Run to continue.

---------------------------

 

 

Gracias de antemano !! 

[Agustin Ortu]

A mi me hacen ruido dos cosas

 

1) el uso de las comilla ``para nombrar la tabla. Aunque se que las herramientas que trabajan con MariaDB las usan

2) el parametro que le pasas al Id. Le estas pasando un string, cuando se supone que deberia ir un numero

 

Igualmente antes de hacer nada yo probaria el update en algun gestor, a ver si puede ser mas especifico con el error

[Koalasoft]

A mi me hacen ruido dos cosas

 

1) el uso de las comilla ``para nombrar la tabla. Aunque se que las herramientas que trabajan con MariaDB las usan

2) el parametro que le pasas al Id. Le estas pasando un string, cuando se supone que deberia ir un numero

 

Igualmente antes de hacer nada yo probaria el update en algun gestor, a ver si puede ser mas especifico con el error

 

* Sobre las comillas, asi es la herramienta que estoy usando me permite hacer eso, aunque igual no es "obligatorio" pero lo hago para ser mas claro en lo que quiero hacer y diferenciar los campos usados.

* Sobre el parámetro, efectivamente pero intente hacerlo convirtiendo el valor string a entero (IntToStr) pero me marco error el compildor. asi que lo deje asi.

 

Y efectivamente uso un gestor para hacer las comprobaciones y tal cual estan pues en el gestor lo hce sin ningun problema.

 

Pero .. sabes cuál era el error? .. me falto limpiar el parámetro SQL...

delphi

with DMod1.ADOQueryCL do
   Begin
     Close;
     SQL.Clear;     // Limpiar consulta antes de hacer otra nueva
     // Actualizamos Tabla Clientes dejando los campos en blanco
     SQL.Add('UPDATE `clientes` SET ');
     SQL.Add('FOLIO = NULL, INDEX_ID = NULL, ONT_ID = NULL ');
     SQL.Add(' WHERE ID_CL = ' + Trim(Label43.Caption));
     ExecSQL;
   end;

y ahora si pude actualizar los campos...

 

De todas formas estimado gracias por tus observaciones que igual ayudan mucho saber eso. puede darlo como resuelto, ahora que si hay aportaciones para mejorarlo bienvenidos ..

 

Saludos !! 

[enecumene]

¿Y por qué no simplemente colocarle -1 ó 0?, al igual que Agustín, en delphi ó lazarus no es necesario colocar los acentos a las tablas.

[Koalasoft]

¿Y por qué no simplemente colocarle -1 ó 0?, al igual que Agustín, en delphi ó lazarus no es necesario colocar los acentos a las tablas.

 

¨Pues si le soy sincero no sabia que eso se podía hacer igual, ya que hasta dnde sabía si no querias un valor se usaba el Null, pero igual es una buena idea gracias.

 

Sobre los acentos es correcto, solo que en lo personal lo uso para que no me pierda entre el código y pueda identificarlo mejor. (cuestión de gustos)

 

Saludos !!

[Agustin Ortu]

Ah, entonces se trata de una sentencia sql que se va a ejecutar varias veces, es siempre el mismo comando update, lo unico que varia es el parametro
 
Te sugiero que lo hagas de esta manera, que ademas es mas eficiente, deberias inicializar el query o command en alguna parte, por ejemplo en el constructor del DataModule o en tiempo de diseño
 

delphi

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ADOQueryCl.SQL.Text := 
       ' UPDATE `clientes` SET ' +
       ' FOLIO = NULL, INDEX_ID = NULL, ONT_ID = NULL ' +
       ' WHERE ID_CL = :ID_CL '; 
 
  ADOQueryCl.Parameters.ParamByName('ID_CL').DataType := TFieldType.ftInteger;
  ADOQueryCl.Prepared := True;                
end;

Y luego utilizas el query:

delphi

Mod1.ADOQueryCl.Parameters.ParamByName('ID_CL').Value := StrToInt(Label43.Caption);
  Mod1.ADOQueryCl.ExecSQL;

Por otra parte te recomiendo que hagas algo con respecto al almacenamiento del ID del cliente en un caption de un label.

 

De hecho hay software que puede modificar el texto de un label desde afuera de tu aplicacion, por lo cual ya es una vulnerabilidad

 

Con hacer algo tan simple como almacenar el valor en una variable de instancia del form, y pasar eso como parametro al query, solucionas el problema