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