hola amigos del club..
Estoy utilizando delphi 6, acces y ADO... explicare mi problema.
Tengo un consulta en SQL que hago por medio de un TADOQuery es una consulta sencilla que solo da como resultado datos entre fecha inicial y fechafinal.
Código Delphi
[-]QCR.Close;
QCR.SQL.Clear;
QCR.SQL.Add('SELECT * from envios');
QCR.SQL.Add('Where (envios.linea = :lin) and (envios.fecha Between :Fecha1 and :Fecha2)');
QCR.Parameters.ParamByName('Lin').Value:=frmfreportes.Edopcion.Text;
QCR.Parameters.ParamByName('Fecha1').Value:=strtodate(frmfreportes.MCdesde.Text);
QCR.Parameters.ParamByName('Fecha2').value:=strtodate(frmfreportes.MCHasta.Text);
QCR.active:=true;
QCR.Open;
pues bien... esta consulta funciona muy bien.. pero lo que intento hacer es que tengo un campo que se llama "estatus" el cual puede tener el valor de "ACEPTADO" o "RECHAZADO" y lo que quiero es contar cuantos estan aceptados y cuantos rechazados..
ya lo intente en el ondatachange del TDataSource
Código Delphi
[-]
procedure TFRMReportes.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if (frmreportes.qcr.FieldByName('estatus2').AsString)='ACEPTADO' THEN
BEGIN
contOK:=ContOK+1;
END;
if (frmreportes.qcr.FieldByName('estatus2').AsString)='RECHAZADO' then
begin
contNG:=ContNG+1;
end;
end;
pero los resultados que me dan no corresponden a las cantidades de los registros...
saludos... y gracias por su ayuda