Problema com FDQuery.state in (dsInsert, dsEdit)
07/03/2017
0
Bom dia, a pergunta que venho fazer é bem iniciante (estou aprendendo delphi) estou seguindo a apostila da TreinaWeb para Delphi XE2, na época segui as mesmas usando compoentes DBX, só que estou tentando refazer a mesma com o Firedac, consegui conectar os componentes dbedit, sem problemas o mesmo exibe os dados, consigo avançar os registros que lancei manualmente no banco de dados Firebird (na apostila era Mysql) sem problemas mais não consigo criar o procedimento Alterar, o mesmo da erro, até consegui localizar o erro, mais não consigo resolver, o erro está no State in (dsInsert, dsEdit) acredito que o Firedac não aceita este procedimento e não sei como revolver, acredito que ele só está rerificando o estado da Tabela se está aberto para Edição ou Inserção, vou colocar o código abaixo e a mesagem de erro.
procedure TfrmFornecedor.actAlterarExecute(Sender: TObject);
begin
//Verifica se está em modo de inserção ou edição
if DMBanco.fdqryFornecedor.State in [dsInset, dsEdit] then
begin
//Se tiver atualiza o registro
DMBanco.fdqryFornecedor.Post;
//Grava as mudanças no banco de dados
if DMBanco.fdqryFornecedor.ApplyUpdates(0) = 0 then
//Informa que o registro foi gravado
ShowMessage('Registro Gravado com Sucesso!');
end;
end;
Mensagem de erro:
[dcc32 Error] uFornecedor.pas(137): E2003 Undeclared identifier: 'dsInset'
(o mesmo erro para o dsEdit)
Agradeço a atenção.
procedure TfrmFornecedor.actAlterarExecute(Sender: TObject);
begin
//Verifica se está em modo de inserção ou edição
if DMBanco.fdqryFornecedor.State in [dsInset, dsEdit] then
begin
//Se tiver atualiza o registro
DMBanco.fdqryFornecedor.Post;
//Grava as mudanças no banco de dados
if DMBanco.fdqryFornecedor.ApplyUpdates(0) = 0 then
//Informa que o registro foi gravado
ShowMessage('Registro Gravado com Sucesso!');
end;
end;
Mensagem de erro:
[dcc32 Error] uFornecedor.pas(137): E2003 Undeclared identifier: 'dsInset'
(o mesmo erro para o dsEdit)
Agradeço a atenção.
Marcelo Duarte
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)