Re: [delphi-br] ADO - Não vejo as alterações na tela

Thu, 17 Aug 2006 14:57:36 -0700 

A função MostrarInfo não deveria ser chamada após a AtualizarTabela?

JDorea
  ----- Original Message ----- 
  From: Felippe Nagato 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 10:26 PM
  Subject: Re: [delphi-br] ADO - Não vejo as alterações na tela


  Por exemplo: o comando de deletar:

  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('DELETE FROM MainTable WHERE ID = ' + edtID.Text);
    ExecSQL;
    MostrarInfo;
    AtualizarTabela;
  end;


  O comando MostrarInfo é isso:

  with datamodule1.ADOQuery3 do
  begin
    edtID.Text := FieldByName('ID').AsString;
    edtNome.Text := FieldByName('nome').AsString;
    cbPessoa.Text := FieldByName('tp').AsString;
    edtEndereco.Text := FieldByName('endereco').AsString;
    edtBairro.Text := FieldByName('bairro').AsString;
    edtCidade.Text := FieldByName('cidade').AsString;
    mskCEP.Text := FieldByName('cep').AsString;
  .... etc ...
  end;

  AtualizarTabela:

  with datamodule1 do
  begin
    frmUpdate.Show; // só pra caso demorar, uma janelinha bonitinha...
    Application.ProcessMessages;
    try
     ADOQuery3.Close;
     DesativarTudo;
     AtivarTudo;
     ADOQuery3.Open;
    finally
     frmUpdate.Close;
    end;
  end;

  Esses ativar e desativar tudo...

  procedure TDataModule1.AtivarTudo;
  begin
  if ADOConnection1.Connected then Exit;
  ADOConnection1.Connected := True;
  ADOTablePrincipal.Active := True;
  DataSource1.Enabled := True;
  ADOQuery3.Active := True; // aqui dentro tem: SELECT * FROM MainTable ORDER 
BY Nome
  end;

  procedure TDataModule1.DesativarTudo;
  begin
  ADOQuery3.Active := False;
  ADOConnection1.Connected := False;
  ADOTablePrincipal.Active := False;
  DataSource1.Enabled := False;
  end;

  Mesmo com isso tudo, depois de deletado o registro, continuo vendo quando dou 
o comando MostrarInfo do registro deletado.
  Mas devo lembrar que no banco de dados .MDB realmente ele foi deletado de 
verdade. Por isso acho estranho.

  Obrigado,
  Felippe.

  [As partes desta mensagem que não continham texto foram removidas]

   

[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]
 
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

Responder a