Ricardo Mendes wrote:
> 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_DA
é 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
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
> Gostaria de saber se tem um jeito melhor, pois desse jeito eu não consegui
> pegar o ultimo incremento
Uma idéia seria abaixo, claro que sempre dentro da mesma transação... (Ignore
TBusinessObject, substitua por uma TIBQuery)
function TCustomDatamodule.GetLastID(FieldName, TableName: String)
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=''
assim vc pegara com o nome do generator o valor passando como parametro o
nome do generator
select RDB$GENERATOR_NAME,RDB$GENERATOR
; Date: Mon, 28 Jan 2008 22:07:01 -0300
> Subject: Re: [delphi-br] Ultimo registro incrementado...
>
>
> Amigo... tô sem Delphi aqui, mas uma solução bem logica seria fazer uma
> query no banco (usando TIBSQLQuery, por ex.) com uma sentença tipo :
>
> [code]
>
usar com RDB$DATABASE, pois é uma tabela de uso pelo
catálogo do banco que SEMPRE terá um único registro.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 29 Jan 2008 01:13:00 +
Subject: RE: [delphi-br] Ultimo registro incrementado
terá um único registro.
Sds.
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Mon, 28 Jan 2008 22:07:01 -0300
> Subject: Re: [delphi-br] Ultimo registro incrementado...
>
>
> Amigo... tô sem Delphi aqui, mas uma solução b
Amigo... tô sem Delphi aqui, mas uma solução bem logica seria fazer uma query
no banco (usando TIBSQLQuery, por ex.) com uma sentença tipo :
[code]
Select GEN_ID(, 0)
>From
[/code]
Que traz o valor atual do Generator.
Atte,
Ricardo.
Ricardo Mendes <[EMAIL PROTECTED]> escreveu:
Galera, preciso de um help
Preciso pegar o ultimo registro incrementado,,,
Dados.IBData_Agen.Append;
Dados.IBData_AgenDATA_AGEN.Value:= DateEdit1.Date;
Dados.IBData_AgenID_DENTISTA.Value:= coddent;
Dados.IBData_Agen.Post;
coddataagen:= Dados.IBData_Age
10 matches
Mail list logo
