Deletar usando Query

Delphi

30/08/2003

Fiz uma jpesquisa usando Query. O resultado desta pesquisa aparece em um DBGrid.
Como fazer para deletar um registro que esteja selecionado no DBGrid?
Gostaria tb que aparecesse uma janela de confirmação só para ter certeza de que realmene deseja deletar aquele registro.


Denysk


Denysk

Denysk

Curtidas 0

Respostas

By Alemão

By Alemão

30/08/2003

procedure Form1.btExlcuirClick(Sender: TObject);
begin
if MessageBox(Handle,´Tem certeza que deseja excluir esse produto?´,´Excluir...´,MB_ICONERROR + MB_YESNO) = idyes then begin
DM.Query.Close;
DM.Query.SQL.Text := ´DELETE * FROM TABELA WHERE CAMPO = ´+(#39)+ DBGrid1.Fields[0].AsString +(39);
DM.Query.ExecSQL;
end;
end;


Ajudei???


GOSTEI 0
Denysk

Denysk

30/08/2003

Tentei fazer isso que vc postou, mas ñ deu certo.
Vc pode ser mais expecífico, por favor?

Denysk


GOSTEI 0
By Alemão

By Alemão

30/08/2003

mas especifico que isso só eu fazendo pra vc...

se quiser me mandar por email eu faço agora.....

byalemao@bol.com.br


GOSTEI 0
Ajmsistemas

Ajmsistemas

30/08/2003

[quote:555dd821d9=´by Alemão´]procedure Form1.btExlcuirClick(Sender: TObject);
begin
if MessageBox(Handle,´Tem certeza que deseja excluir esse produto?´,´Excluir...´,MB_ICONERROR + MB_YESNO) = idyes then begin
DM.Query.Close;
DM.Query.SQL.Text := ´DELETE * FROM TABELA WHERE CAMPO = ´+(#39)+ DBGrid1.Fields[0].AsString +(39);
DM.Query.ExecSQL;
end;
end;


Ajudei???[/quote:555dd821d9]

Mano vc pode fazer assim também.....

if MessageDlg(´Deseja Apagar esse Registro´,mtConfirmation,[MbOk,MbCancel],0) = IdOk Then
Query.Delete;

tente isso ai..


GOSTEI 0
POSTAR