contar elemento de un select

[tebre]

hola compalñeros que tal miren mi duda esta en un select:

Código Delphi [-]
  Datos.QryInsertDetalleSolicitud.Close;
  Datos.QryInsertDetalleSolicitud.SQL.Clear;
  Datos.QryInsertDetalleSolicitud.SQL.Add('SELECT * ');
  Datos.QryInsertDetalleSolicitud.SQL.Add('FROM DetalleSolicitud');
  Datos.QryInsertDetalleSolicitud.SQL.Add('WHERE ClaveProducto='+ QuotedStr(Claveproducto)+ ' AND FolioSolicitud=' + EdfolioSolicitud.Text +';');
  Datos.QryInsertDetalleSolicitud.Open;
  if Datos.QryInsertDetalleSolicitud.RecordCount = 0 then {AQUI.- Quiero saber cuando solamente me quedeo un campo. como hacer eso??}
    Begin
      Application.MessageBox('En la solicitud debe contener un producto como minimo !!!', '::: Error :::',MB_ICONERROR);
    End
  else
    begin
    {aqui borro al elemento}
    end;

espero me puedan ayudar grax

[*Caro*]

Hola tebre, no entiendo cual es el problema que tienes el RecordCount debería funcionarte, pero tambien puedes utilizar IsEmpty.

Código Delphi [-]
if Datos.QryInsertDetalleSolicitud.IsEmpty then//Si tu consulta no devuelve ningún registro 
  Begin
      Application.MessageBox('En la solicitud debe contener un producto como minimo !!!', '::: Error :::',MB_ICONERROR);
    End
  else
    begin
.............

Saluditos

[tebre]

lo que yo quiero es que me elimine siempre y cuando exista como minimo un elemento en base de datos. entonces hago un select para saber si hay elemtos en la base de datos....si hay, que me elimine, por ejemplo si tengo 3 elementos...que me elimine a dos...pero que no me deje eliminar si solamente hay uno....como hacer eso???

Código Delphi [-]
 
Datos.QryInsertDetalleSolicitud.Close;
  Datos.QryInsertDetalleSolicitud.SQL.Clear;
  Datos.QryInsertDetalleSolicitud.SQL.Add('SELECT * ');
  Datos.QryInsertDetalleSolicitud.SQL.Add('FROM DetalleSolicitud');
  Datos.QryInsertDetalleSolicitud.SQL.Add('WHERE ClaveProducto='+ QuotedStr(Claveproducto)+ ' AND FolioSolicitud=' + EdfolioSolicitud.Text +';');
  Datos.QryInsertDetalleSolicitud.Open;
  if Datos.QryInsertDetalleSolicitud.RecordCount = 1 then {AQUI.- Quiero saber cuando solamente me quede un elemento. como hacer eso??}
    Begin
      Application.MessageBox('En la solicitud debe contener un producto como minimo !!!', '::: Error :::',MB_ICONERROR);
    End
  else
   {Eliminar}
  end;

[roman]

¿Y cuál es el problema? Al parecer, tu código hace exactamente lo que quieres.

En todo caso, quizá sea más conveniente consultar directamente cuántos registros tienes:

Código SQL [-]
select count(*) from DetalleSolicitud
where ClaveProducto = :clave and FolioSolicitud = :folio

// Saludos