[firebase-br] Auto incremento FB

Reijanio Nunes Ribeiro rnribeiro em gmail.com
Ter Maio 10 21:34:01 -03 2011


cara faz assim
function TF_DMM.inc_gen(generator: String): Integer;
begin
QryAtualiza.Close;
qryAtualiza.CommandText :='Select gen_id('+Generator+',1)from rdb$database';
qryatualiza.Open;
result := qryatualiza.Fields.Fields[0].AsInteger;
qryatualiza.Close;

end;


f_dmm.C_Venda.Insert;
f_dmm.C_VendaCODIGO.AsInteger := f_dmm.inc_gen('GEN_C_VENDA_ID');

2011/5/10 W O <sistemas2000profesional em gmail.com>

> Hola Gilberto
>
> Si entiendes castellano (español), entonces puedes descargar SQL_DEMO desde
> este enlace:
>
> http://www.mediafire.com/?dugbqkqt4tx6bdl
>
> Allí encontrarás los programas fuente y la documentación. El programa está
> hecho en Visual FoxPro pero a la Base de Datos puedes acceder desde
> cualquier otro lenguaje que te permita la conexión.
>
> Saludos.
>
> Walter.
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



Mais detalhes sobre a lista de discussão lista