 |
ActiveDelphi .: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
perison Novato

Registrado: Domingo, 6 de Janeiro de 2008 Mensagens: 52
|
Enviada: Dom Jan 06, 2008 11:14 pm Assunto: excluir registro simpledataset |
|
|
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 |
|
 |
edioilha Novato

Registrado: Segunda-Feira, 7 de Julho de 2003 Mensagens: 19
|
Enviada: Seg Jan 07, 2008 1:20 am Assunto: |
|
|
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 |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|