Problemas para enviar um novo registro ao final da Query

Delphi

03/03/2004

Ae galera, blz?
é o seguinte, preciso ir até o ultimo registro da query e inserir um novo [aparece tudo em um grid], porem acontece o seguinte, quando chega ao ultimo registro [Query1.Last] e mando inserir [Query1.Insert] ele faz o insert antes do ultimo, assim:

Registro originais:
->registro1
registro2
registro3
registro4
registro5

[vai ate o ultimo]

registro1
registro2
registro3
registro4
->registro5

[agora dá o insert - eis o problema]
registro1
registro2
registro3
registro4
->
registro5

Eu estou tentando que o ponteiro de inserção fique após o registro5, alguem pode me dar uma ajuda?

Thnkz!


Skaarj

Skaarj

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

03/03/2004

Colega,
substitua [b:a0f9d3c4a8]Query1.Insert[/b:a0f9d3c4a8] por [b:a0f9d3c4a8]Query1.Append[/b:a0f9d3c4a8]

T+


GOSTEI 0
Lucas Silva

Lucas Silva

03/03/2004

tente o código...
   if transaction1.Instrasaction then
  transaction1.commit;

  transaction1.StartTransaction;

   with query1 do
      begin
        Open();
        if State = dsInsert then
          Delete();
        Insert();
      end;



GOSTEI 0
Skaarj

Skaarj

03/03/2004

Ae piazada, valeu..


GOSTEI 0
POSTAR