Ajuda Com Banco de Dados

Question

Ol� pessoal,Estou usando o Interbase, criei uma tabela com uma trigger que quando o usu�rio inserir o registro a trigger criar um c�digo para este. Mas s� consigo ver este c�digo do registro quando fe...

Joilson_gouveia · Answer

Se vc est� no come�o do sistema, minha sugest�o � que vc mesmo construa sua fun��o de retornar o �ltimo registro + 1 de sua tabela, pois ter� mais controle sobre o registro criado. Autoincremento s� � vantajoso nas tabelas PRIM�RIAS, que n�o ter�o tabelas dependentes...

function RetornaCodigo:Integer;
var
qry:TQuery;
begin
qry := TQuery.Create(self);
with qry do
begin
DataBaseName := (seu data base name);
SQL.Text := �SELECT MAX(CODCLI) AS CODCLI FROM TB_CLI�;
Open;
if FieldByName(�CODCLI�).IsNull then
Result := 1 // Primeiro registro
else
Result := FieldByName(�CODCLI�).AsInteger + 1;
Close;
Free;
end;
end;

Torres Delphi · Answer

Acho que o seu problema eh a transacao que nao foi �comitada� no banco.

Tente fazer isso:

// No botao incluir/alterar, enfim, no inicio da manutencao do registro
Dm.DataBase1.StartTransaction;

// No botao Gravar/Salvar
Dm.DataBase1.Commit;

De um refresh na query/table do grid, se estiver usando

Abs

F�rum Ajuda Com Banco de Dados #174643