problema con upDate

[maxi915]

HOla, tengo una tabla TurnoCliente compuesta por: ID_turnoCliente, Id_turno, Id_cliente.


el Problema surge al intentar actualizar un campo de la tabla TurnoCliente.

Debo actualizar el campo "id_cliente" de la tabla TurnoCliente cuando "IdTurno" sea igual a la variable "turno".

este es el procedimiento que utilizo pero me salta error de sintaxis.

alguna ayuda por favor?! se agradece nuevamente!!

Código Delphi [-]
procedure Insertar_EnturnoCliente_IdTurno(queryturnoCliente:TADOQuery;turno,cliente:Integer);
begin
 with queryturnoCliente do
    begin
     Close;
     sql.clear;
     sql.Add('update TurnoCliente set Id_turno ='+turno' where (id_turno='+(turno)');
     Parameters.ParamByName('ID_cliente').Value:=cliente;
     ExecSQL;
    end;
end;

[ecfisa]

Hola maxi915.

Segun lo que solicitas,

Empezado por maxi915

...
Debo actualizar el campo "id_cliente" de la tabla TurnoCliente cuando "IdTurno" sea igual a la variable "turno".
...

la consulta debería ser:

Código Delphi [-]
procedure UpdateCustomerTurn(Qry: TADOQuery; const TurnId, CustId: Integer);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE TURNOCLIENTE SET ID_CLIENTE = :CUSTID');
    SQL.Add('WHERE IDTURNO = :TURNID');
    Parameters.ParamByName('CUSTID').Value:= CustId;
    Parameters.ParamByName('TURNID').Value:= TurnId;
    ExecSQL;
  end;
end;

Saludos

[Casimiro Notevi]

La cara oculta de Delphi

[maxi915]

me tira el siguiente error:

no se han especificado valores para algunos de los parametros requeridos

[maxi915]

utilizando este tipo de consulta tambien deberia actualizarse el campo, el problema es que no conozco la sintaxis correcta.

Código Delphi [-]
with queryturnoCliente do
    begin
     Close;
     sql.clear;
     sql.Add('update TurnoCliente set Id_turno ='+turno' where (id_turno='+(turno)'); //problema de comillas o puntos en la sintaxis
     Parameters.ParamByName('ID_cliente').Value:=cliente;
     ExecSQL;
    end;

[Casimiro Notevi]

Ya te lo ha explicado ecfisa, muy acertadamente, por cierto.

[Casimiro Notevi]

Empezado por maxi915

el problema es que no conozco la sintaxis correcta.

Empezado por Casimiro Notevi

La cara oculta de Delphi

.

[ecfisa]

Hola maxi915.

Empezado por maxi915

me tira el siguiente error:

no se han especificado valores para algunos de los parametros requeridos

Con seguridad sucede lo que te dijeron aquí (y lee lo que te sugiere Casimiro )

Saludos

[maxi915]

Solucionado!

Código Delphi [-]
procedure actualizardisponibilidad(QueryTurnos:TADOQuery; turno:Integer; lugares:Integer);
Begin
   with QueryTurnos do
    begin
     Close;
     sql.clear;
     sql.Add('update turnos set disponibilidad ='+inttostr(lugares)+' where id_turno='+IntToStr(turno));//sintaxis correcta
     ExecSQL;
    end;
end;

[ecfisa]

Hola maxi915.

Primero que nada me alegra solucionaras tu problema .

Pero considero apropiado hacer nuevamente esta observación:

Siendo QueryTurnos de tipo TADOQuery y las variables Lugares y Turno de tipo integer, los siguientes códigos:
1)

Código Delphi [-]
  with QueryTurnos do
  begin
    Close;
    sql.clear;
    sql.Add('update turnos set disponibilidad ='+inttostr(lugares)+' where id_turno='+IntToStr(turno));//sintaxis correcta
    ExecSQL;
  end;

2)

Código Delphi [-]
  with QueryTurnos do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE TURNOS SET DISPONIBILIDAD = :DISP');
    SQL.Add('WHERE ID_TURNO = :TURNO'); // sintáxis correcta (y aconsejada)
    Parameters.ParamByName('DISP').Value:= Lugares; 
    Parameters.ParamByName('TURNO').Value:= Turno;
    ExecSQL;
  end;

provocan el mismo resultado final. (Ambos modifican el valor de la columna DISPONIBILIDAD de acuerdo a una condición)

Pero las implicancias que trae aparejado usar un método o el otro son muy diferentes...

El primero deja la puerta abierta a los ataques de Inyección SQL. Siempre que sea posible es aconsejable usar el segundo modo.

Saludos

[Casimiro Notevi]

Empezado por ecfisa

es aconsejable usar el segundo modo.

[maxi915]

gracias por el consejo!!!

[maxi915]

tengo una duda mas con el update y tipo fecha, necesito actualizar esto:
cambiar fechaInscripcion, por la variable fecha.

Código Delphi [-]
procedure actualizarFechaPago(Queryclientes:TADOQuery; id_cliente:integer; fecha:string);
Begin
   with Queryclientes do
    begin
     Close;
     sql.clear;
     sql.Add('update Clientes set FechaInscripcion ='+(fecha)+' where id_cliente='+IntToStr(id_cliente));
     ExecSQL;
    end;
end;

[Casimiro Notevi]

Haciéndolo como se te ha aconsejado, con parámetros, no tendrías ningún problema con eso

[maxi915]

perfecto lo voy a probar..ahora que seria la variable "DISP", y el simbolo "=:"...gracias

Código Delphi [-]
  with QueryTurnos do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE TURNOS SET DISPONIBILIDAD = ISP');
    SQL.Add('WHERE ID_TURNO = :TURNO'); // sintáxis correcta (y aconsejada)
    Parameters.ParamByName('DISP').Value:= Lugares; 
    Parameters.ParamByName('TURNO').Value:= Turno;
    ExecSQL;
  end;

[maxi915]

Este es mi codigo y me tira error parametro fechaInscripcion not found....

Código Delphi [-]
procedure actualizarFechaPago(Queryclientes:TADOQuery; id_cliente:integer; fecha:string);
Begin
   with Queryclientes do
    begin
     Close;
     sql.clear;
     SQL.Add('UPDATE Clientes SET fechaInscripcion = :fecha');
    SQL.Add('WHERE ID_Cliente = :id_cliente');
    Parameters.ParamByName('fechainscripcion').Value:= fecha;
    ExecSQL;
     ExecSQL;
    end;
end;

[ecfisa]

Empezado por maxi915

Este es mi codigo y me tira error parametro fechaInscripcion not found....

El error es claro y correcto (parámetro 'fechaInscripcion' no encontrado).

Fijate que en tu código SQL declaras como nombre de parámetro a fecha (*). Sin embargo en ParamByName, intentas hacer referencia a él como fechainscripcion siendo este último el nombre de la columna que deseas modificar...

Lo sintácticamente correcto sería:

Código Delphi [-]
  with Queryclientes do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE Clientes SET fechaInscripcion = :fecha');
    SQL.Add('WHERE ID_Cliente = :id_cliente');
    Parameters.ParamByName('fecha').Value:= fecha;
    Parameters.ParamByName('id_cliente').Value:= una_variable_o_valor;
    ExecSQL;
  end;

Saludos

(*) Dentro del código SQL los parámetros se distinguen por estar precedidos por dos puntos ':'.

[maxi915]

Un millon de gracias, era justamente ese el problema!!!
errores basicos que se comenten...al no entender bien la sintaxis sql y delphi

[maxi915]

seria muy util una guia donde detalle todo los tipos de consultas con sus variaciones, y demas, por ejemplo seleccionar todos los registros que cumplan ciertas condiciones...etc...pero bueno sera cuestion de buscar y encontrar algo lo que se necesita porque dudo que exista algo tan detallado

[Casimiro Notevi]

http://terawiki.clubdelphi.com/Delph...phi_4_pdf_.zip