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 Noteví]

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 Noteví]

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

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