Autoincremento confiavel com SQL alguem sabe?

Question

Pessaol vc�s sabem como eu faco uma instrucao SQL autoincremental confiavel onde, se um usuario abrir o sistema duas vezes ou mais na mesma maquina, ao inserir um registro o sistema nao duplique.

Obs: O usuario ainda nao gravou gando abrir pela segunda vez o mesmo sistema!

Schumacher · Answer

Rodrigo,

Certa vez precisei de algo semelhante e criei esta fun��o:

function ProximoCodigoStr(psTabela, psChave: String;
psFormato, psDataBase, psSessionName: String) : String;
var lsStringSQL: String;
begin
lsStringSQL:= �SELECT MAX(�+psChave+�) as Chave FROM �+psTabela;
with TQuery.Create(nil) do
try
DataBaseName:= psDataBase;
SessionName := psSessionName;
SQL.Text := lsStringSQL;
Open;
if FieldByName(�Chave�).IsNull then
Result := FormatFloat(psFormato, 1)
else
Result := FormatFloat(psFormato, FieldByName(�Chave�).AsFloat + 1);
finally
Close;
Free;
end;
end;

Um exemplo de uso desta fun��o, ao clicar no bot�o novo registro:

tblINClientes.FieldByName(�CliCodigo�).AsString :=
ProximoCodigoStr(�CliClientes�,�CliCodigo�,�00�,�NomedaSessao�,�NomedaBasedeDados�);

_________________
Marcelo Schumacher

Rodrigo Ferreira · Answer

[quote:6855c3921e=�schumacher�]Rodrigo,      Certa vez precisei de algo semelhante e criei esta fun��o:       function ProximoCodigoStr(psTabela, psChave: String;        psFormato, psDataBase, psSessionName: String) : String;      var lsStringSQL: String;      begin        lsStringSQL:= �SELECT MAX(�+psChave+�) as Chave   FROM �+psTabela;        with TQuery.Create(nil) do        try           DataBaseName:= psDataBase;           SessionName := psSessionName;           SQL.Text := lsStringSQL;           Open;           if FieldByName(�Chave�).IsNull then           Result := FormatFloat(psFormato, 1)        else          Result := FormatFloat(psFormato, FieldByName(�Chave�).AsFloat + 1);        finally          Close;        Free;      end;end;Um exemplo de uso desta fun��o, ao clicar no bot�o novo registro:tblINClientes.FieldByName(�CliCodigo�).AsString :=    ProximoCodigoStr(�CliClientes�,�CliCodigo�,�00�,�NomedaSessao�,�NomedaBasedeDados�);_________________Marcelo Schumacher[/quote:6855c3921e]Obrigado amigo pela ajuda :wink:...