Deletar usando Query

Question

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

By Alem�o · Answer

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

Denysk · Answer

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

By Alem�o · Answer

mas especifico que isso s� eu fazendo pra vc...se quiser me mandar por email eu fa�o agora.....byalemao@bol.com.br...

Ajmsistemas · Answer

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

F�rum Deletar usando Query #178552