Como trabaja RecordCount de las Tablas Paradox???

[JamesBond_Mx]

Hola honorable grupo, tengo un pequeño problema con el RecordCount, resulta que lo estoy utilizando para obtener la cantidad de registros almacenados en mi tabla, y lo plasme en una etiqueta, y que cada que se agrega un registro se vaya actualizando este dato, pero al abrir el formulario, me indica bien la cantidad de registros existentes, pero al agregar uno y aplicar el ApplyUpdates en lugar de aunmentar en uno el numero de registros lo aunmenta en dos y despues en tres y asi susecivamente, ¿por que hace esto???, cual es el error???

Gracias.

[marcoszorrilla]

¿Por qué no pones el código?

A ver si te podemos ayudar, yo te garantizo que RecordCount funciona perfectamente.

Un Saludo.

[JamesBond_Mx]

Aqui es donde utilizo el RecordCount

procedure TAnomal.ActuaClick(Sender: TObject);
Var
Cuenta:Integer;
begin
If DBEResp.Text = 'Algo' then
DBECveREsp.Text:='06';
if DBEEStado.Text = 'Corregida' Then
DBEEstado.Color:=clRed
else
DBEEstado.Color:=clYellow;

try
Modulo1.Anoma.ApplyUpdates;
except
on Exception do
begin
ShowMessage('Esta anomalía ya habia sido capturada');
DBEResp.Visible:=False;
LResp.Visible:=False;
LFechaD.Visible:=False;
DBEFechaD.Visible:=False;
DBRGClasi.Visible:=False;
DBRGRiesgo.Visible:=False;
LFechaP.Visible:=False;
DBEFechaP.Visible:=False;
LFechaC.Visible:=False;
DBEFechaC.Visible:=False;
LEstado.Visible:=False;
DBEEstado.Visible:=False;
LDesc.Visible:=False;
DBMDesc.Visible:=False;
CBTipoInst.ItemIndex:=-1;
DBLCBInst.KeyValue:='';
DBLCBInst.Visible:=False;
LNomAnom.Visible:=False;
Modulo1.Anoma.Delete;
Modulo1.Anoma.Append;
end;
end;
Modulo1.Anoma.Refresh;
Cuenta:=Modulo1.Anoma.RecordCount;
Cuenta:=Cuenta-1;
Cant.Caption:=IntToStr(Cuenta);
end;

A ver que en que estoy mal

[__cadetill]

Aunque no responda directamente a tu pregunta....

Si tienes las rusas instaladas (las RxLib), éstas tienen el componente TDbStatusLabel precisamente para esto.

Eso si, funciona muy bien para bases de datos de escritorio (Paradox, DBase,..) pero para bases de datos relacionales, no te funcionará ni este componente ni el RecordCount (a no ser que hagas un Last de la tabla, cuyo casi te funcionará tanto una solución como la otra)

Espero te sirva

[JamesBond_Mx]

Pues no me ha servido de mucho, para empezar ¿como le indico que solo me muestre la cantidad de registros que tiene la tabla??

Por que me indica esto:

117:118

entiendo que el primero número es el registro en el que está actualmente 117 (el último), pero el 118 ¿por que?? si solo son 117??? ¿que significa?

[__cadetill]

El primer número es el registro en el que nos encontramos y, el segundo, es la cantidad de registros que tiene la tabla. Si haces un

select count(*)
from tabla

en tu caso, debería de darte 118

Por otro lado, el registro actual, creo que no se puede quitar (a no ser que modifiques los fuentes, claro )

[JamesBond_Mx]

Pero la tabla solo tiene 117 Registros, por que el 118???

[__cadetill]

Empezado por JamesBond_Mx

Pero la tabla solo tiene 117 Registros, por que el 118???

Quizás es un bug de los componentes (y nunca me había dado cuenta ) pero... estás seguro que no tiene 118?? lo has comprovado?

[JamesBond_Mx]

Comprobadisimo, solo tengo 117, y el detalle es este, si inicio la aplicacion me muestra desde un principio la cantidad que tengo 117 por ejemplo, si agrego un registro mas, me actualiza a 118, pero si agrego uno más, en lugar de poner 119 que es lo lógico pone 120, y si agrego otro pone 122, y si agrego otro pone 125, y asi se va aumentando, primero 1, luego 2, luego 3 etc. como que no esta bien ¿no?

[__cadetill]

Pues lo acabo de probar y a mi me ha funcionado bien

Por otra parte, he visto que sí se puede sacar el número totales de registros, poniendo la propiedad CalcRecCount a false

[marcoszorrilla]

He colocado un rejilla y he dado altas, bajas y siempre me marca el número correcto de registros:

procedure TForm1.FormActivate(Sender: TObject);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
label1.Caption:=IntToStr(Table1.RecordCount);
end;

Un Saludo.

[[eduarcol]]

Porq no sacas el recordcount de alli y lo colocas en el AfterPost

Cant.Caption:=IntToStr(Modulo1.Anoma.RecordCount;

[JamesBond_Mx]

Efectivamente, no se por que sea, pero después de hacer el post, trabaja muy bien...
Gracias