Ver Mensaje Individual
  #2  
Antiguo 24-07-2003
Gabriel Gabriel is offline
Miembro
 
Registrado: may 2003
Ubicación: PalauTordera
Posts: 115
Reputación: 22
Gabriel Va por buen camino
SELECT gen_id(GMGeneral,1) AS CODIGO
FROM RDB$DATABASE


Aumenta generador en uno


SELECT gen_id(GMGeneral,0) AS CODIGO
FROM RDB$DATABASE

Valor Generador

if DataSet.State = dsInsert Then
Begin
try
QueryCodigo.Open;
QClientesNum_Cliente.AsInteger := QueryCodigoCodigo.AsInteger;
finally
QueryCodigo.Close;
end;
end;
__________________
Gabriel
Responder Con Cita