Deletar registros

02/12/2009

bom, tenho um consulta que � exibida no dbgrid todos os campos da tabela usuario, gostaria que quando clicasse no botao excluir, deletasse o registro selecionado! eu uso delphi e firebird! eu fiz mais ou menos assim, mais deu errado.... dm.cdsbusu.Close;
dm.cdsbusu.CommandText:='delete from USUARIO where codigo=codigo';
essa linha se nau me engano deve ter um parametro, mais na conseguir fazer dm.cdsbusu.Execute; me ajudem por favor! abra�os....

Thiago Silva

Curtir t�pico + 0

Responder

Posts

02/12/2009

Bruno Batista

Boa tarde.

Me parece que voc� est� utilizando ClientDataSet, � s� fazer isso.

dm.cdsbusu.Delete;

com isso deletar� o registro que o cursor estiver posicionado.

Atenciosamente,

Bruno Moreira Batista.

Responder

Gostei + 0

02/12/2009

Thiago Silva

esse clientdataset q eestou usando � somente de consulta, o outro � q est� ligado com o formulario de cadasttro de usuarios, por isso n�o h� como usar esse comando: dm.cdsbusu.delete; obrigado msm assim;

Responder

Gostei + 0

02/12/2009

Bruno Batista

Boa tarde,

Ent�o ter� que posicionar o ClientDataSet de cadastro, no registro que deseja excluir.

if (DM.ClientDataSetCadastro.Locate('Chave', DM.ClientDataSetConsulta.FieldByName('CHAVE').Value,[])) then
DM.ClientDataSetCadastro.Delete;

Atenciosamente,

Bruno Moreira Batista.

Responder

Gostei + 0

02/12/2009

Thiago Silva

n�o aconteceu nada, ficou desse jeito o codigo.... begin
if (dm.cdsusu.Locate('CODIGO', dm.cdsbusu.FieldByName('CODIGO').Value,[])) then
     begin
      dm.cdsusu.Delete;
     end; end; o q pode ser? e outra, o codigo q postei anteriormente est� totalmente errado?

Responder

Gostei + 0

03/12/2009

Perivaldo Martins

voc� est� usando ClientDataSet e escreveu uma instru��o informando um parametro mas n�o o instancia.

ent�o tente mudar seu c�digo para:

dm.cdsbusu.Close;
dm.cdsbusu.CommandText:='delete from USUARIO where codigo = :codigo';
dm.cdsbusu.param.parambyname('codigo').asinteger := StrToInt(Edit1.Text);
dm.cdsbusu.Execute;

Algo mais ou menos assim, teste pq eu n�o testei, eu geralmente fa�o a exclus�o usando Query.

Boa sorte e bons c�digos.

Responder

Gostei + 0

07/12/2009

Thiago Silva

o consulta � exibida em um dbgrid, entao para funcionar a consulta deve ser igual ao registro selecionado do dbgrid!
ao inv�s de ser caixa de texto com q vc colocou no parametro�
mais como fa�o isso?

Responder

Gostei + 0

15/12/2009

Paulo Silva

dm.cdsbusu.Close;
dm.cdsbusu.CommandText:='delete from USUARIO where codigo = :codigo';
dm.cdsbusu.param.parambyname('codigo').asinteger := seuDBGRId.Fields[0].asinteger; dm.cdsbusu.Execute; /coloque o indice do campo no lugar do zero caso seja o primeiro pode manter o zero pois o indice � incrementado apartir do zero ^^

Responder

Gostei + 0

18/12/2009

Thiago Silva

rapaz deu esse seguinte erro access violation at address 004d84c0 in module 'videolocadora.exe'. Read of address 000000......saberiam me dizer o q pode ser? desde ja abrigado!

Responder

Gostei + 0

18/12/2009

Armando Filho

deve servir para qualquer banco

uses IBODataset;

procedure Deletar(xDatabase:TIBODatabase;xTransaction:TIBOTransaction;Tabela,CampoChave,CompararCom:String;QueryRefresh:TIBOQuery;Generator:String;IniciarTransaction:Boolean=True);
var Query:TIBOQuery;
begin
if (MessageDlg('Confirma a exclus�o do registro ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
    Query:=TIBOQuery.Create(Application.Owner);
    TRY
      Query.IB_Connection:=xDatabase;
      Query.IB_Transaction:=xTransaction;
      if(IniciarTransaction)AND(NOT xTransaction.InTransaction)then
        xTransaction.StartTransaction;

      Query.Close;
      Query.SQL.Text:='DELETE FROM '+Tabela+' WHERE ('+CampoChave+'=:CompararCom)';
      Query.ParamByName('CompararCom').AsString:=CompararCom;
      Query.ExecSQL;

      Query.Close;
      Query.SQL.Text:='SET GENERATOR '+Generator+' TO '+IntToStr(GetMaxCampo(xDatabase,xTransaction,Tabela,CampoChave));
      Query.ExecSQL;

      if(IniciarTransaction)then xTransaction.Commit;
      if(QueryRefresh.Active)then QueryRefresh.Refresh;
    FINALLY
      Query.Close;
      Query.Free;
    END;
end;
end;

Responder

Gostei + 0

21/12/2009

Thiago Silva

tem um jeito mais simples nau? ta meio dificil de entender.... vlw

Responder

Gostei + 0

22/12/2009

Thiago Silva

Boa tarde.. uma terceira forma de se fazer isso � a seguinte, vou charmar de CDSUsuario a query que vc usa para os registros ok, nao esta que esta usando para pesquisa, mas o cds que vc usa pra post e apply, estou considerando que esteja usando um CDS para efetuar os registros.. ------------------------ CDSUsuario .Close;
CDSUsuario .CommandText := ' select * from usuario ';
CDSUsuario .Open;
CDSUsuario .Locate('CODIGO', dm.cdsbusuCODIGO.AsInteger ,[]); CDSUsuario .Delete; CDSUsuario .ApplyUpdates(-1); ------------------------- Dessa forma � pra dar certo.. das outras que nossos amigos passaram tb d�.. no caso, estou abrindo todos os registros da sua query principal, para que traga tudo que existe na tabela, e dando um locate no campo c�digo, que no caso, deve ser sua pk.. com locate eu jogo o foco no registro da query que vc usa para efetuar transa��es com o banco de dados pelo codigo da query que vc usa para consultas, apos dar locate e jogar o foco, dou um delete e um applyupdates na query para efetuar a transa��o... O problema de se fazer desta forma, � que caso vc tenha muitoa registros na sua query, quando abrir a query principal, por estar abrindo todos os registros, ir� demorar um pouco, por consequencia, sua dele��o ficar� lenta, mas no caso, aparentemente � pra cadastro de usuario, e dificilmente vc ter� 10000 usuarios ou coisa do tipow.. ent�o � pra vinga de boa.. Espero ter ajudado.. Sucesso.

Responder

Gostei + 0