Necesito ayuda con consulta SQL
Hola a todos, tengo que hacer una consulta SQL y me da un error en tiempo de ejecucion, el error es:
Capability not supported
y el codigo el siguiente:
procedure TfmBuscarCita.BtBuscarClick(Sender: TObject);
begin
with SBuscarCitas do begin
Close;
with SQL do begin
Clear;
Add('SELECT c.fecha as Fecha,c.hora as Hora,u.nombre as Fisioterapeuta ,c.nombre as Paciente');
Add('FROM "Citas.db" c, "usuarios.db" u');
Add(' WHERE fecha >= "'+ DateToStr(DTPInicio.date)+'" AND strtodate(fecha) <="'+DateToStr(DTPFin.Date)+'"');
Add(' AND "'+EditId_Usuario.text+'"=id_Usuario');
if(editNombrePaciente.Text<>'*') then Add(' AND Nombre = "'+editNombrePaciente.Text+'"');
Add(' AND c.id_Usuario=u.Id_Usuario');
Add(' ORDER BY c.fecha,c.hora');
end;//SQL
ExecSQL;
Open;
end;//Query
end;
El problema me lo da al añadir la linea subrayada. Creo q es por culpa de los formatos de la fecha, pero no lo se fijo. El formato tanto de fecha (que es un campo de la BD) como del del DTPInicio.date y DTPFin.date (son datetimepicker) es de tipo datetime.
Muchas gracias por vuestra ayuda.
|