seveN Postado Junho 14, 2008 Denunciar Share Postado Junho 14, 2008 (editado) Como excluir a linha selecionada no DBGgrid. Editado Junho 19, 2008 por seveN Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 14, 2008 Denunciar Share Postado Junho 14, 2008 Como excluir a linha selecionada no DBGgrid.Se estiver usando um dbnavigator linkado ao dbgrid, uso o botão ( - ) ou então pode utilizar as teclas Ctrl + Shift + Delabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Junho 14, 2008 Autor Denunciar Share Postado Junho 14, 2008 Não estou usando um dbnavigator. Quero apenas clicar na linha e pressionar um botão para excluir. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 14, 2008 Denunciar Share Postado Junho 14, 2008 procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Deseja Apagar o Registro ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin NomedaSuaTabela.Delete; NomedaSuaTabela.ApplyUpdates(-1); end; end;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Junho 14, 2008 Autor Denunciar Share Postado Junho 14, 2008 Fiz como o mostrado e retornou erro em (-1)begin if MessageDlg('Deseja deletar o Registro?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin FormFuncao.QRFuncao.Delete; FormFuncao.QRFuncao.ApplyUpdates(-1); end; end;grato. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 14, 2008 Denunciar Share Postado Junho 14, 2008 Fiz como o mostrado e retornou erro em (-1)beginif MessageDlg('Deseja deletar o Registro?',mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginFormFuncao.QRFuncao.Delete;FormFuncao.QRFuncao.ApplyUpdates(-1);end;end;amigo voce tem que ser mais claro em suas informações:Versão do delphi que esta usandoTipo de tabela que está usando : Interbase, Paradox ou outroQRFuncao é o nome da sua table, é um QuickReport, ou é uma Query ?Se QRFuncao é o nome da sua tabela, para retornar erro em ApplyUpdates(-1) significa que voce está usando um Table e não uma Query ... neste caso é só tirar o (-1).abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Junho 15, 2008 Autor Denunciar Share Postado Junho 15, 2008 Estou usando o Delphi 7 com o banco de dados MySql e QRFuncao é uma Query.Ok. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 15, 2008 Denunciar Share Postado Junho 15, 2008 Para o componente Query1 use Query1.ApplyUpdates; Para o componente IBQuery1 use IBQuery1.ApplyUpdates(-1); abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 seveN Postado Junho 19, 2008 Autor Denunciar Share Postado Junho 19, 2008 Usei o código abaixo e deu certo.procedure TFormFuncao.BtExcluirClick(Sender: TObject);var Codigo: integer;begin If (MessageDlg('Deseja deletar o Registro?' , MtConfirmation , [mbYes,mbNo] , 0 ) = MrYes ) then Begin codigo:=QRFuncaoMat_bm.value; QRFuncao.close; QRFuncao.Sql.Clear; QRFuncao.Sql.Add('Delete From Tabbm Where Mat_bm = :Cod'); QRFuncao.ParamByName('Cod').AsInteger := Codigo; QRFuncao.ExecSql; Showmessage('Registro excluído com sucesso!'); endElse Showmessage('Operação cancelada!');//Voltando as configurações originais da query QRFuncao.Sql.clear; QRFuncao.Sql.Add('Select Tabbm.Mat_bm, Tabbm.Des_bm, Tabbm.Posto_bm, Tabbm.Funcao'); QRFuncao.Sql.Add('From Tabbm where (Tabbm.Des_bm like:nome) Order by Tabbm.Mat_bm'); QRFuncao.parambyname('nome').asstring:='%'; QRFuncao.open; end;grato. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
seveN
Como excluir a linha selecionada no DBGgrid.
Editado por seveNLink para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.