Tenta isso:
with ADOQuery1 do
begin
SQL.Clear;
SQL.Add('DELETE FROM MainTable WHERE ID = ' + edtID.Text);
ADOConnection1.BeginTrans;
ExecSQL;
ADOConnection1.CommitTrans;
MostrarInfo;
AtualizarTabela;
end;
Eduardo
Felippe Nagato escreveu:
> 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]
>
>
_______________________________________________________
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.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]
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
