Problema con parametros

[[Caral]]

Hola
Asi?:

Código Delphi [-]
qryExec:= TZQuery.Create(nil);
qryEXEC.SQL.Add(' INSERT INTO turno ( ID_PACIENTE, FECHA_HORA ) '+
          ' values ( :ID_PACIENTE, :FECHA_HORA)');
        qryExec.ParamByName( 'ID_PACIENTE' ).Value:= Data.qryPAC.FieldByName ( 'ID_PACIENTE' ).value;
        qryExec.ParamByName ( 'FECHA_HORA').Value:= FormatDateTime( 'yyyyMMdd', sHora );
        qryExec.Connection:=Data.Conx;
        qryExec.ExecSQL;
        FreeAndNil (qryExec);
        Data.qryTurno.Refresh;

No esto muy seguro del FormatDateTime (nunca lo he usado, pero esa es la idea.
El parametro no tiene por que contener el formato, es cuando se le da valor que lo debe contener.
Saludos

[[Caral]]

Hola
Otra es formatear la fecha antes:

Código Delphi [-]
qryExec:= TZQuery.Create(nil);
ShortDateFormat := 'yyyyMMdd';
qryEXEC.SQL.Add(' INSERT INTO turno ( ID_PACIENTE, FECHA_HORA ) '+
          ' values ( :ID_PACIENTE, :FECHA_HORA)');
        qryExec.ParamByName( 'ID_PACIENTE' ).Value:= Data.qryPAC.FieldByName ( 'ID_PACIENTE' ).value;
        qryExec.ParamByName ( 'FECHA_HORA').Value:=  sHora;
        qryExec.Connection:=Data.Conx;
        qryExec.ExecSQL;
        FreeAndNil (qryExec);
        Data.qryTurno.Refresh;

Saludos