Fórum Obter registros de 10 em 10 ... #223371
30/03/2004
0
Qual o procedimento para buscarmos registros de 10 em 10 em um query ?
Exemplo :
Tenho um dbgrid vinculado a uma tabela de clientes.
quando o usuário acessa o programa, este deve retornar os 10 primeiros clientes. (Até aqui tudo bem) quando o usuário posicionar o cursor no 10º registro e teclar seta para baixo, o programa deve buscar + 10 registros na base, sem ´perder´ os anteriores.
se não me falha a memoria, via BDE tem como fazer esta ´chinelagem´
Existe como fazer este tipo de tramóia utilizando Firebird com acesso via IBDataSet ?
Aceito Qualquer sugestão.
Karepa
Curtir tópico
+ 0Posts
30/03/2004
Cabelo
Por quê vc não tenta usar um String Grid, e ir implementando ele de acordo com o KeyPress deste componente, utilizando um for de uma variável contadora, até 10..
assim..
Form1.StringGridKeyPress();
if key = seta(não sei bem o key da seta) then
begin
v_j := 0;
while not DataSet.Eof do
begin
for v_i := v_j to v_j + 10 do
begin
stringGrid[v_i].add(valores para as celulas da linha de registro);
end;
v_j := v_j + 10;
DataSet.Next;
end;
end;
sem mais
Cabelo
Gostei + 0
30/03/2004
Karepa
Valeu pela dica.
Gostei + 0
30/03/2004
Cabelo
Lento não iria ficar não..
Nem um pouco..
Pq vc estaria implementando o vetor que é o componente string grid..
ficaria tão veloz quanto um select com o ClientDataSet..
sem mais
Cabelo
Gostei + 0
30/03/2004
Lucas Silva
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)