Depois desse código, de um Free no BookMark.
Var dbPonteiro:TBookMark; Begin (...) dbPonteiro:=Tabela.GetBookMark; //faça sua rotina de gravação //Commit as alterações Tabela.GotoBookMark(dbPonteiro); Tabela.FreeBookMark(dbPonteiro); // --> ESSE CODIGO AQUI (..) End; Eduardo -------Mensagem original------- De: Rafael Franco Carvalho Data: 04/28/05 14:27:57 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar Não, não, não. Nada disso. A solução do Marcelo resolve mas é muito lenta. Use o recurso de BookMark. Assim: Var dbPonteiro:TBookMark; Begin (...) dbPonteiro:=Tabela.GetBookMark; //faça sua rotina de gravação //Commit as alterações Tabela.GotoBookMark(dbPonteiro); (..) End; Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás – Brasil "O único verdadeiro fracasso é deixar de tentar" Max Heindel -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 28 de abril de 2005 11:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar podes pegar o codigo dele e salvar em uma variavel. ai fazes um loop até o cursor chegar no registro desejado. Abraços, Marcelo ----- Original Message ----- From: "acolombobermudez" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Thursday, April 28, 2005 10:51 AM Subject: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar Alguem sabe como manter o ponteiro do DataSet na mesma posicao depois de salvar as alteracoes no banco? éo seguinte , faco um select que me retorna varios registros, posiciono o ponteiro do dataset no vigesimo registro , altero ele e salvo dando um commit, com isso o dataset volta na primeira posicao, mas gostaria que continuasse na vigesima. alguem sabe como fazer isso? ou se é possivel fazer isso? utilizo delphi7, paleta ibx, com firebird 1.0 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __________ NOD32 1.1081 (20050428) Information __________ This message was checked by NOD32 Antivirus System. http://www.nod32.com -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
