AutoIncrement na inser��o do registro.

Question

Com um campo autoincrement, posso fazer a inser��o de novos registros sem problema, mas o n�mero sequente s� aparece quando o registro � salvo. Existe alguma maneira de n�mero aparecer na inser��o do registro?

Poeta Noturno · Answer

Se voc� estiver usando interbase/firebird para essa tarefa, fa�a o seguinte: crie uma fun��o para ler o generator que guarda o valor do seu campo c�digo (por exemplo). Para ler, fa�a o seguinte:

function CodigoCliente(Novo: Boolean) then
var
ResultSet: TCustomSQLDataSet;
SQLStmt: string;
begin
if Novo then
SQLStmt := �select gen_id(CRIAR_COD_CLI, 1) as VALOR from RDB$DATABASE;�
else
SQLStmt := �select gen_id(CRIAR_COD_CLI, 0) + 1 as VALOR from RDB$DATABASE;�;
ResultSet := nil;
try
tbls.Impress.Execute(SQLStmt, nil, @ResultSet);
if Assigned(ResultSet) then
Result := ResultSet.fieldByName(�Valor�).AsInteger;
Finally
ResultSet.Free;
end;

Aqui novo representa se voc� est� apenas lendo ou incrementando o generator.

OBS: N�o esque�a de declarar SQLExpr para esse fun��o rodar legal ok?

Espero ter ajudado.

Um abra�o

Poeta Noturno

F�rum AutoIncrement na inser��o do registro. #236583