Conocer el número de registros

[marcoszorrilla]

Prueba con este ejemplo y verás como te funciona:

procedure TForm1.Button1Click(Sender: TObject);
var
CodigoUser:Integer;
begin
CodigoUser:=1;

ADO_Q.Close;
ADO_Q.Sql.Clear;
ADO_Q.Sql.Add('Select Count(Cp) from Copias_Pelicula');
ADO_Q.Sql.Add('Where CP ='+IntToSTr(CodigoUser));
ADO_Q.Active:=True;

end;

Un Saludo.