F�rum Inserindo com Campo autoincrementos dbexpress. #330288

28/09/2006

Boa tarde pessoal..
estou fazendo uma coisa aqui que est� dando errado e n�o sei se � a forma certa de fazer o sistema..Ent�o na realidade queria saber se estou fazendo da forma certa, se n�o estiver , se vcs poderiam me indicar a forma certa a fazer e se caso estiver certo o modo como eu tenho que fazer para corrigir o erro..(confuso n� :oops: )

� uma coisa simples mas como nunca fiz em dbexpress se torna um pouco confuso ...Uso Delphi 7 e Sqlserver 2000

Tenho uma tela em que cadastro as empresas que ser�o meus clientes..com todos os campos relativos a empresa(CodClientePJ,NomeEmpresa,cnpj..etc) este campo CodClientePJ � um campo autoincremento..
tenho que cadastrar todos os diretores/Gerentes da empresa, ent�o criei a tabela ClientesPJDiretores(CodClientesPJDiretores,NomeClientesPJDiretores,CPF,CodClientePJ)
a� uso um dbgrid para adicionar todos os diretores relativos aquela empresa..
depois mando dar um applyupdates na tabela ClientesPJ e ClientesPJDiretores..
s� que meu problema � com o campo autoicremento que s� aparece depois que gravo o ClientesPJ ent�o d� erro qdo vou incluir os diretores..
t� fazendo um gerador de valores, incluindo 1 no max(codClientePJ).. mas tenho medo pq esse sistema vai ser usado por mtos usu�rios e tenho medo de as esta��es pegarem o mesmo c�digo e dar zica..

vcs podem me dar uma ajuda..
obrigado

Eric.miranda

Curtir t�pico

+ 0

Responder

Posts

28/09/2006

Mahdak

http://forum.clubedelphi.net/viewtopic.php?t=80597&highlight=

Responder

Gostei + 0

28/09/2006

Mahdak

SQLDataSet2.Close; 
SQLDataSet2.CommandText := �Select GEN_ID(gen_agenda_id,1) as PROX from RDB$DATABASE�; 
SQLDataSet2.Open; 

Edit_Codigo.text := IntToStr(SQLDataSet2PROX.AsInteger); 

ClientDataSet1.Open; 
ClientDataSet1.Insert; 

// comandos para salvar no banco.... 

ClientDataSet1.post 
ClientDataSet1.applyupdates(0);

Responder

Gostei + 0