Faltou: "BancoData.tblSAEUsuario.Insert ou
BancoData.tblSAEUsuario.Edit"
Antes de executar a linha abaixo;
BancoData.tblSAEUsuario.Post;
BancoData.dtbsConexao.CommitRetaining;
Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]
-----Mensagem original-----
De: alisson_delphi [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 28 de outubro de 2004 11:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Erro Excluir
Sou novato em programação e gostaria que vcs me ajudassem.... pois eu
coloquei algumas linhas de comando no botão Excluir...
procedure TfrmSAECadUsuario.btnExcluirClick(Sender: TObject); begin
inherited;
try
BancoData.tblSAEUsuario.Open;
frmSAEManuUsuario := TfrmSAEManuUsuario.Create(Self);
frmSAEManuUsuario.barraInfo.Caption := 'Confirmar inclusão de dados
?';
Operacao := oprExcluir;
dbgrdConsulta.DataSource.DataSet.Delete;
frmSAEManuUsuario.ShowModal;
except
on E:Exception do begin
MessageDlg('Ocorreu um erro ao tentar excluir o
registro selecionado !!!' + #13#10 +
'Erro => ' + E.Message,mtError, [mbOk],0);
TpFibDataSet
(dbgrdConsulta.DataSource.DataSet).Transaction.RollbackRetaining;
end;
end;
E no meu botão de Confirmação Coloquei Esses código
if Operacao = oprExcluir then begin
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.Delete;
end
else if Operacao in [oprIncluir,oprAlterar] then begin
BancoData.tblSAEUsuario.Post;
BancoData.dtbsConexao.CommitRetaining;
Close;
end;
if frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.State <>
dsBrowse then begin
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Cancel;
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Transaction.Rollba
ckRetaining;
end
else begin
orCommit( TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ) );
end;
Mais está dando um erro que eu naum estou conseguindo encontrar.... O
seguinte erro
TBLUSUARIO: DATASER NOT IN EDIT OR INSERT MODE
Alguém poderia me ajudar.....
Desde já pesso desculpas por eu ser um pouco leigo e estar fazendo algo
errado....
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
