Provavelmente a instrução correta seja:
[Code]
coddatagen := IBSQL1.Database.Fields[1].AsInteger;
// ou
coddatagen := IBSQL1.DataBase.FieldByName('RDB$GENERATOR_ID').AsInteger
[/Code]
Atte,
Ricardo.
Ricardo Mendes <[EMAIL PROTECTED]> escreveu:
Gostaria de agradecer as dicas, mais ainda to com o problema de não saber como
pegar o numero.
eu coloquei na aplicação um IBSQL da paleta Interbase.
o codigo ta assim
select RDB$GENERATOR_NAME,RDB$GENERATOR_ID
from RDB$GENERATORS
where RDB$GENERATOR_NAME=GEN_DATA_AGEN_ID
Mas eu não sei é pegar o result.
eu tentei fazer assim
coddataagen:= IBSQL1.Database.Transactions;
mas não deu certo.
From: Rafael Da Silva
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 28, 2008 10:24 PM
Subject: Re: [delphi-br] Ultimo registro incrementado...
Caso vc use o firebird 1.5 vc pode fazer o sequinte SQL
select RDB$GENERATOR_NAME,RDB$GENERATOR_ID
from RDB$GENERATORS
where RDB$GENERATOR_NAME='<NOME DO GENERATOR>'
assim vc pegara com o nome do generator o valor passando como parametro o nome
do generator
select RDB$GENERATOR_NAME,RDB$GENERATOR_ID
from RDB$GENERATORS
where RDB$GENERATOR_NAME=:pGEN
Att Rafael
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
_
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
