Mover para o próximo registro
Pessoal estou estudando delphi e mysql, e estou enfrentando problemas, já consegui fazer INSERT UPDATE ADD tudo beleza.
Mas não estou conseguindo fazer a navegação próximo e registro anterior, alguém poderia me ajudar passando um exemplo de como fazê-lo? Já estou a algumas horas tentando sem sucesso.
Eu estou tentando umar o .next
Grato a todos.
Mas não estou conseguindo fazer a navegação próximo e registro anterior, alguém poderia me ajudar passando um exemplo de como fazê-lo? Já estou a algumas horas tentando sem sucesso.
Eu estou tentando umar o .next
Grato a todos.
Mjs
Curtidas 0
Respostas
Lucas Silva
23/04/2004
Dá algum erro ou simplismente não dá o resultado esperado?
GOSTEI 0
Sgubert
23/04/2004
Olá amigo.....
O delphi ja tem uma barra padraõ de navegação toda pronta, com a navegação, inclui, modifica, elimina, atualiza.......
E vc tb pode constriuir a sua barra utilizando apenas os eventos do TClientDataSet que faz tudo pra vc. é só adicionar o componente TEvents eu acho e adicionar os eventos que vc quer, dai é so manda criar a barra e ta tudu pronto.....
Não sei se fui muito claro, tb estou aprendendo e sem o delphi na frente para fazer passo a passo fica + dificil...hehehe
[]´s
Samuel
O delphi ja tem uma barra padraõ de navegação toda pronta, com a navegação, inclui, modifica, elimina, atualiza.......
E vc tb pode constriuir a sua barra utilizando apenas os eventos do TClientDataSet que faz tudo pra vc. é só adicionar o componente TEvents eu acho e adicionar os eventos que vc quer, dai é so manda criar a barra e ta tudu pronto.....
Não sei se fui muito claro, tb estou aprendendo e sem o delphi na frente para fazer passo a passo fica + dificil...hehehe
[]´s
Samuel
GOSTEI 0
Mjs
23/04/2004
[quote:60c6ee3a42=´Lucas Alves Silva´]Dá algum erro ou simplismente não dá o resultado esperado?[/quote:60c6ee3a42]
Dá um erro, na hora que eu vou recuperar os dados pelo FieldByName.
O code tá +/- assim
qr.Active := False;
qr.Sql.Clear;
qr.Sql.Next
qr.Active := True;
if qr.Eof then
begin
MessageDLG(´Você já está no último registro, mtinformation, [mbok], 0);
edcod.Text := ´´;
end
else
begin
ednome.Text := qr.FieldByName(´nome´).Value;
end;
end
Dá um erro, na hora que eu vou recuperar os dados pelo FieldByName.
O code tá +/- assim
qr.Active := False;
qr.Sql.Clear;
qr.Sql.Next
qr.Active := True;
if qr.Eof then
begin
MessageDLG(´Você já está no último registro, mtinformation, [mbok], 0);
edcod.Text := ´´;
end
else
begin
ednome.Text := qr.FieldByName(´nome´).Value;
end;
end
GOSTEI 0
Mjs
23/04/2004
[quote:951b6aa089=´Lucas Alves Silva´]Dá algum erro ou simplismente não dá o resultado esperado?
Dá um erro, na hora que eu vou recuperar os dados pelo FieldByName.
O code tá +/- assim
qr.Active := False; qr.Sql.Clear; qr.Sql.Next qr.Active := True; if qr.Eof then begin MessageDLG(´Você já está no último registro, mtinformation, [mbok], 0); edcod.Text := ´´; end else begin ednome.Text := qr.FieldByName(´nome´).Value; end; end
GOSTEI 0
Mjs
23/04/2004
Caro não entendi muito bem, mas é que eu gostaria de aprender o código também.
Olá amigo.....
O delphi ja tem uma barra padraõ de navegação toda pronta, com a navegação, inclui, modifica, elimina, atualiza.......
Samuel
GOSTEI 0
Lucas Silva
23/04/2004
qr.Active := False;
qr.Sql.Clear;
qr.Sql.Next
qr.Active := True;
Você não pode dar um [b:dfd57f2da7]Clear[/b:dfd57f2da7] na query, esse clear limpa o Sql da query...
Tenta tirar esta linha ai...´qr.Sql.Clear;´
GOSTEI 0