Error creating cursor handle

[ricardosaltorato 0]

Estou com o seguinte problema,Após fazer uma alteração, exclusão ou inclusão de registros no arquivo de dados recebo a seguinte mensagem Error creating cursor handle. Os dados são gravados no arquivo de dados mas esta mensagem de erro é exibida.Alguem pode me ajudar a resolver este problema?Grato,Ricardo Saltorato.

[CarlosNet 0]

como você ta fazendo a inclusão/exclusão ?

[ricardosaltorato 0]

como você ta fazendo a inclusão/exclusão ?

<{POST_SNAPBACK}>

estou fazendo da seguinte forma:

 

procedure TFrmManutencaoCidades.BtnIncluirClick(Sender: TObject);

begin

 

if btnincluir.Caption = '&Incluir' then

begin

btnincluir.Caption := '&Gravar';

edtcodigo.Enabled := true;

edtnomecidade.enabled := true;

edtcepinicial.enabled := true;

edtcepfinal.enabled := true;

edtcodigo.SetFocus;

end

else

begin

btnincluir.caption := '&Incluir';

modulodados.QueryCidades.Active := false;

modulodados.QueryCidades.SQL.Clear;

modulodados.QueryCidades.SQL.Add('insert into cidades (codigo, nome, cepinicial, cepfinal) values (:codigo, :nomecidade, :cepinicial, :cepfinal)');

modulodados.QueryCidades.ParamByName('codigo').AsString := edtcodigo.text;

modulodados.QueryCidades.ParamByName('nomecidade').asstring := edtnomecidade.text;

modulodados.querycidades.ParamByName('cepinicial').asstring := edtcepinicial.text;

modulodados.querycidades.parambyname('cepfinal').asstring := edtcepfinal.text;

modulodados.QueryCidades.active := true;

end;

 

end;