Obter registros de 10 em 10 ...
Dae Galera.
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.
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
Curtidas 0
Respostas
Cabelo
30/03/2004
Caro Colega
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
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
Karepa
30/03/2004
Interessante, porém iria ficar muito mais lento do que estou planejando.
Valeu pela dica.
Valeu pela dica.
GOSTEI 0
Cabelo
30/03/2004
Caro colega
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
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
Lucas Silva
30/03/2004
Com dataset eu acho que dá pra fazer isto ....
GOSTEI 0