F�rum Erro ao abrir ClientDataSet.open - unknown ISC error 0 #587403

01/11/2017

Minha aplica��o parou de funcionar quando alterei a estrutura do banco de dados (firebird). O erro ocorre quando tento acessar um registro, depois de te-lo selecionado em uma tela de pesquisa. Quando acesso o 1� registro, o erro n�o ocorre, mas, quando acesso o 2�, 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:

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

� Responder � Citar

Francisco Rodrigues

Curtir t�pico

+ 0

Responder

Posts

02/11/2017

Henrique Dias

uma vez usei esse m�todo por par�metros, e dava um erro tbm,
porem era um erro de compatibilidade com o delphi,
experimente nao usar esse parm e declara a vari�vel direto na sql
... '+ quotedtstr(VARIAVEL) + ' ...

Responder

Gostei + 0

26/01/2018

Francisco Rodrigues

Resolvido - Obrigado Henrique. O problema estava em uma tabela; ao criar um campo que deveria ser do tipo integer, informei numeric(8,0).

Responder

Gostei + 0