[firebase-br] [off-topic] preencher campos(integer) null com valor numerico crescente (bd firebird) ???

[Paulo Portella]

Alguns artigos que facilmente encontra-se no google :

http://www.firebirdfaq.org/faq29/

http://www.firebase.com.br/fb/artigo.php?id=977

http://www.firebase.com.br/fb/artigo.php?id=1017

http://www.devmedia.com.br/post-17924-Auto-Incremento--Firebird.html

http://www.google.com.br/url?sa=t&source=web&cd=7&ved=0CEoQFjAG&url=http%3A%2F%2Fwww.planetadelphi.com.br%2Fdownload%2F4229%2FAutoincremento%2520no%2520firebird&ei=ywanTcCXI6HE0QG-q_T5CA&usg=AFQjCNGNC1zxv57KMiK42nDsMeYI62sCtA 




Um exemplo de Código em Delphi:

procedure TDMC.cdsClientesBeforePost(DataSet: TDataSet);
begin
if dmc.cdsClientes.State in [dsInsert] then
dmc.cdsClientesID.AsInteger:=dmcProximoCodigo('CLIENTES','ID','');
end;

function TDMC.dmcProximoCodigo(Tabela, Campo, Condicao: String): Integer;
begin
if sqlProximoCodigo.Active then sqlProximoCodigo.Close;
sqlProximoCodigo.SQL.Clear;
sqlProximoCodigo.SQL.Add('SELECT MAX('+Campo+') AS VALOR FROM '+Tabela+' 
'+Condicao);
sqlProximoCodigo.Open;

if sqlProximoCodigo.FieldByName('VALOR').IsNull then Result:=1 else
Result:=StrToInt(sqlProximoCodigo.FieldByName('VALOR').Value)+1;

end;

Vida de americano é assim: iPhone, iPod, iPad, iMac….
Já a de brasileiro é assim:IPTU, IPVA, ICMS, IPI etc


Em 14/04/2011 11:06, Nilton Oliveira escreveu:
> Pessoal, preciso preencher um campo(integer) de uma tabela (bd firebird) com valores de numérico crescente.
>
> são mil campos nulos, como procedo no ibexpert, ou mesmo no delphi.
>
> agradeço
> ______________________________________________
> 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