Botão Salvar

Delphi

18/03/2013

olá, estou usando o delphi xe3 e estou com um problema ao inserir os dados digitados num formulário para o banco de dados, a programação que usei no botão foi a seguinte:

TClientDataSet (dtsCadastro.DataSet).ApplyUpdates(0);
ShowMessage('Operação realizada com sucesso');
PageControl1.ActivePage:= tabConsulta;

ele aparece a frase: 'operação realizada com sucesso', mas na verdade não gravou nada no banco. Se alguém puder me ajuda agradeço, ah estou usando Firebird 2.5!
Leozir Junior

Leozir Junior

Curtidas 0

Respostas

Danillo Camargo

Danillo Camargo

18/03/2013

olá, estou usando o delphi xe3 e estou com um problema ao inserir os dados digitados num formulário para o banco de dados, a programação que usei no botão foi a seguinte:

TClientDataSet (dtsCadastro.DataSet).ApplyUpdates(0);
ShowMessage('Operação realizada com sucesso');
PageControl1.ActivePage:= tabConsulta;

ele aparece a frase: 'operação realizada com sucesso', mas na verdade não gravou nada no banco. Se alguém puder me ajuda agradeço, ah estou usando Firebird 2.5!


Bom dia Leozir. Tudo bem?

Existe um evento no seu clientdataset chamado "OnReconcileError", esse evento ocorre quando um conjunto de dados do cliente precisam conciliar uma atualização que não pode ser aplicada.

Nesse mesmo evento, crie um exceção:

procedure TForm1.ClientDataSet1ReconcileError(DataSet: TCustomClientDataSet; E: EReconcileError;
  UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  raise Exception.Create(E.Message);
end;


Assim você consegue identificar o erro que está ocorrendo.

Qualquer dúvida estou à disposição,
Atenciosamente,
GOSTEI 0
POSTAR