[firebase-br] GEN_ID x dbExpress

[Francisco Thiago de Almeida]

Olha possivelmente voce está convertendo esse valor em algum outro lugar no 
seu programa.. tenta ver nas linhas onde você manipula o resultado da 
funçao...  e mais uma coisa, no Win9x fazer select's daquele tipo sem 
especificar um apelido para a coluna, geralmente acarreta em erro... sempre 
coloque um.

select gen_id(asdf,1) as Codigo from rdb$database


----- Original Message ----- 
From: "Álvaro Vieira" <arcoverdeneto em yahoo.com.br>
To: <lista em firebase.com.br>
Sent: Tuesday, December 14, 2004 11:26 AM
Subject: [firebase-br] GEN_ID x dbExpress


> Pessoal,
>
> Tentei usar a função abaixo para me retornar o próximo valor de um 
> GENERATOR, mas não está funcionando.
>
> Uso: Delphi 6 / Firebird 1.5 / dbExpress
>
> 01 function TDataMod.GetNextID : Integer;
> 02 var
> 03   qry : TSQLQuery;
> 04 begin
> 05   qry := TSQLQuery.Create(nil);
> 06   qry.SQLConnection := DataMod.DB;
> 07   qry.SQL.Text := 'select gen_id(GN_GERAL, 1) from rdb$database';
> 08   qry.Open;
> 09   Result := qry.Fields[0].AsInteger;
> 10   qry.Close;
> 11   FreeAndNil(qry);
> 12 end;
>
> Na linha 12, apresenta a mensagem: "... EConvertError with message "6029=' 
> is not a valid floating point value'".
>
> Alguém pode me passar alguma dica? Será incompatibilidade do dbExpress com 
> o Firebird???
>
> --
> Álvaro Vieira
> arcoverdeneto em yahoo.com.br
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>