Ver Mensaje Individual
  #3  
Antiguo 25-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Reputación: 18
tebre Va por buen camino
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;
Responder Con Cita