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
Begin
Application.MessageBox('En la solicitud debe contener un producto como minimo !!!', '::: Error :::',MB_ICONERROR);
End
else
end;