Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como obtener valor del ultimo registro. (https://www.clubdelphi.com/foros/showthread.php?t=47909)

Gaim2205 10-09-2007 21:39:33

como obtener valor del ultimo registro.
 
Uso D7 y firebird. Tengo una tabla con el campo cve_proyecto y en un dbgrid despliego los datos de dicha tabla. El problema es que dicha tabla esta filtrada, y al poner el siguiente codigo:

Código Delphi [-]
cc := DataSource.DataSet.RecordCount;

o tambien
Código Delphi [-]
table1.last;
cc:= table1.fieldByName('cve_proyecto').AsInteger;

me regresa la cuenta de la tabla (o valor del ultimo registro, cualquiera me sirve) pero filtrada. Como puedo hacer para que me regrese la cuenta total de registros?

se que se puede mediante un query pero no se exactamente como.
gracias. =D

jhonny 10-09-2007 21:44:49

Agarras el componente que sea capaz de devolverte una consulta (Como no indicas el tipo de componentes para BD que usas pues...), entonces escribes en el la consulta correspondiente, algo como:

Código SQL [-]
selec count(*) from cve_proyecto

Y luego solo es cuestion de capturar su resultado desde el comoponentes que te hizo el Fetch de la consulta.

Gaim2205 10-09-2007 21:52:38

seria algo asi no??

Código Delphi [-]
que_proyecto.SQL.Clear;
que_proyecto.SQL.Add('select count(*) from Proyecto');
que_proyecto.Open;

pero como paso el resultado de esa consulta a una variable?
Gracias.

jhonny 10-09-2007 21:55:09

Código Delphi [-]
Variable := que_proyecto.Fields[0].AsInteger;

Espero te sirva :).

betiitooo 10-09-2007 22:02:17

creo que tambien lo puedes hacer de la siguiente forma:

function cuentaRegistros: integer;
begin
with nombre_query do
close;
sql.clear;
sql.append(' select count(*) as total from nombre_tabla ');
open;
result:= fieldValues[ 'total' ];
end;
end;

bueno, solo falta que le pongas el nombre de la tabla y el query. espero te sirva


La franja horaria es GMT +2. Ahora son las 20:22:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi