ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

excluir registro simpledataset

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
perison
Novato
Novato


Registrado: Domingo, 6 de Janeiro de 2008
Mensagens: 52

MensagemEnviada: Dom Jan 06, 2008 11:14 pm    Assunto: excluir registro simpledataset Responder com Citação

Estor usando os seguintes componentes :

Simpledataset
sqlstoredproc
datasource



procedure TForm_Cliente.Button1Click(Sender: TObject);
var aux,nome,tratamento, strsql:string;
begin
if MessageDlg('Confirma para Exclusão',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
TD.TransactionID := 1;
TD.IsolationLevel := XILReadCommitted;
DM.SQLC.StartTransaction(TD);
Try
Begin
DM.SDS_Fiado.Delete;
DM.SDS_Fiado.ApplyUpdates(0);
DM.SQLC.Commit(TD);

end;
Except
DM.SQLC.Rollback(TD);
MessageDlg('Erro na Exclusão.', mtInformation,[mbOk], 0);
end
end
else
begin
MessageDlg('Exclusão Cancelada .', mtInformation,[mbOk], 0);

end;

end;

Mas não consigo fazer a exclusão
Aparece um erro
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
edioilha
Novato
Novato


Registrado: Segunda-Feira, 7 de Julho de 2003
Mensagens: 19

MensagemEnviada: Seg Jan 07, 2008 1:20 am    Assunto: Responder com Citação

Olá!
Fiz um teste com o parte do teu código e nao retornou erro.
Porém eu utilizei só o SimpleDataSet apontando para SqlConnection.
Talvez o problema esteja na maneira como tu esta configurando o StoredProc.
Dai ja nao sei como te ajudar.

Código:

procedure TForm1.Button1Click(Sender: TObject);
var aux,nome,tratamento, strsql:string;
  TD : TTransactionDesc;
begin
  if MessageDlg('Confirma para Exclusão',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
    TD.TransactionID := 1;
    TD.IsolationLevel := XILReadCommitted;
    SQLConnection1.StartTransaction(TD);
    Try
      SimpleDataSet1.Delete;
      SimpleDataSet1.ApplyUpdates(0);
      SQLConnection1.Commit(TD);
    Except
      SQLConnection1.Rollback(TD);
      MessageDlg('Erro na Exclusão.', mtInformation,[mbOk], 0);
    end
  end else
    begin
      MessageDlg('Exclusão Cancelada .', mtInformation,[mbOk], 0);
    end;
end;


Espero ter ajudado!
Vlw
ÉdioIlha

Ps. Perdeu a indentaçao... Nao sei como fazer para mante-la aqui.
Ps.:Agora sim hehehehe
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB