F�rum TListbox e TMemo #343180

05/07/2007

Boa Noite,

Tenho em meu aplicativo um TListbox, mais um TMemo no canto direito.
Quando eu adiciono um registro no TListbox, � gravado no Memo informa��es, e no TListbox uma data.

Fica assim:

    while not eof do
    begin
      evolucao:= true;
      lbdatas.Items.Add(FieldByName(�DATA�).AsString);
      Next;
    end;

O Problema � que fazendo desta maneira, o valor
TListbox:
05/05/2007
05/06/2007
06/07/2006

Quando eu clico no botao �novo� � adicionado uma nova data no TListBox, depois preciso fazer o update de todos.

No evento OnClick do TListBox, eu fa�o um select, que mostra as informa��es no Memo.

continuando...

At� ai tudo bem.
Agora � o problema.

Eu gostaria de fazer um UPDATE de todos os �tems do TListBox.

Motivo, podem editar v�rios �tems do TListBox, por isso preciso fazer o UPDATE.

    for i:= 0 to lbdatas.Count-1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(�update EVOLUCAO set       � +
              �IDPAC = :IDPAC, � +
              �DATA = :DATA,             � +
              �DESCRICAO = :DESCRICAO    � +
              �where DATA = :DATA and IDPAC = :IDPAC�);
      ParamByName(�DATA�).AsDate := StrToDate(lbdatas.Items[i]);
      ParamByName(�DESCRICAO�).AsBlob:= mevolucao.Text;
      ParamByName(�IDPACE�).AsInteger:= idpac;
      ExecSQL();
    end;
  end;

O problema do c�digo acima, ele altera todos os registros com o mesmo conte�do do campo DESCRICAO.

Unix

Curtir t�pico

+ 0

Responder

Posts

06/07/2007

Unix

Resolvi o problema, atualizando somente o �tem do tlistbox marcado.

Responder

Gostei + 0