Gravar com banco firebird / clientedataset

Question

Estou usando o banco Firebird 1.5 com Ibexpert.

No bot�o gravar

DM.ClientDataSet.Post;
DM.ClientDataSet.ApplyUpdates(0);
DM.ClientDataSet.Refresh;

Auto incremento no banco.

O que ocorre quando gravo o registro, ele vai para o primeiro por causa do refresh.

Alguem teria alguma solu��o?

Emarcolongo · Answer

Qual a duvida ?Vc quer que ele fique no ultimo depois do insert ?   depois do refresh coloque: DM.ClientDataSet.Last;Ou tire o refresh para continuar no mesmo...Qualquer coisa manda ai.,...

Soupinto · Answer

[quote:b8a7bc1d60=�emarcolongo�]Qual a duvida ?Vc quer que ele fique no ultimo depois do insert ?   depois do refresh coloque: DM.ClientDataSet.Last;Ou tire o refresh para continuar no mesmo...Qualquer coisa manda ai.,[/quote:b8a7bc1d60]certo isso eu fiz coloquei o last, mas no editar qnd eu edito por exemplo o segundo registro e aperto gravar ... se tiver o DM.ClientDataSet.Last; vai para ultimo e sen�o vai para o primeiro....

Dor_poa · Answer

Isso acontece porque voc� da o ApplyUpdates.

ApplyUpdates � igual ao COMMIT

Nesse caso ele sempre retornar� para o 1� registro...!!
uma sa�da boba, seria vc armazenar antes do POST em uma variavel a chave do registro atual e depois dar um locate!

vlrChave := DM.ClientDataSet.Fieldbyname(�CAMPO�).asstring;
DM.ClientDataSet.Post;
DM.ClientDataSet.ApplyUpdates(0);
DM.ClientDataSet.locate(�CAMPO�, vlrChave, []);

Essa seria uma saida para vc!

Host · Answer

Amigo usa o TStrBookMark ou BookmarkStr naum lembro o nome ... sou daquelas q nao tem memoria ... so referencia hehehehhe...

Ffabiop · Answer

sim Host, acho que falas do TBookMark:varRegistro: TBookMark;beginDM.ClientDataSet.Post; DM.ClientDataSet.ApplyUpdates(0); Registro := DM.ClientDataSet.GetBookMark;DM.ClientDataSet.Refresh;DM.ClientDataSet.GotoBookmark(Registro);end;...

Crpavao · Answer

Colega,Apenas tire o .Refresh. S� isso. Ap�s o applyupdates(0) o cursor fica no mesmo registro....

F�rum Gravar com banco firebird / clientedataset #353756