Exception class TDBXError with message unknown ISC error 0
23/10/2017
0
Minha pequena aplicação funcionava normalmente até quando mudei a estrutura do banco de dados (firebird). O erro ocorre no momento do cadastro, quando, para acessar um determinado registro, clico em um botão de pesquisa para seleciona-lo. Na primeira vez, o erro não ocorre, mas, quando tento selecionar outro registro, ocorre Exception class TDBXError with message 'unknown ISC error 0'. Se eu fechar a tela de cadastro e abri-la novamente, o erro não ocorre.
Antes, não era necessário atribuir a consulta ao CommandText; ela vinha do SqlDataSet.CommandText (SELECT * FROM REGNAS WHERE NUMERO = :NUMERO). Agora, sem ela, o CammandText fica vazio e o erro ocorre sempre; com ela, ocorre na segunda vez que seleciono o registro na tela de pesquisa.
Abaixo, O código do botão pesquisar:
Alguém poderia me ajudar a solucionar este problema? Desde já, obrigado!
FRANCISCO RODRIGUES
Antes, não era necessário atribuir a consulta ao CommandText; ela vinha do SqlDataSet.CommandText (SELECT * FROM REGNAS WHERE NUMERO = :NUMERO). Agora, sem ela, o CammandText fica vazio e o erro ocorre sempre; com ela, ocorre na segunda vez que seleciono o registro na tela de pesquisa.
Abaixo, O código do botão pesquisar:
procedure TfrmNascimento.BtnPesquisarClick(Sender: TObject);
begin
inherited;
try
frmPesquisa := TfrmPesquisa.Create(Self, dmNascimento.cdsPesqNascimento, 'REGNAS');
frmPesquisa.ShowModal;
finally
with dmNascimento.ClientDataSetNascimento do
begin
close;
CommandText := 'SELECT * FROM REGNAS WHERE NUMERO = :NUMERO';
FetchParams;
Params.ParamByName('NUMERO').AsInteger :=
dmNascimento.cdsPesqNascimentoNUMERO.AsInteger;
Open;
end;
FreeAndNil(frmPesquisa);
end;
end;Alguém poderia me ajudar a solucionar este problema? Desde já, obrigado!
FRANCISCO RODRIGUES
Francisco Rodrigues
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)
