Re: [delphi-br] Pegar o valor gerado do generator do firebird
Humberto Adotei a sua solução, pois a meu ver é a, mas simples e funcionou perfeito. Fiz o seguinte: Coloquei o código que me passou em uma SQLQuery e logo após o ApplyUpdates, abrir a SQLQuery peguei o ultimo valor do Generator e com esse valor passei como parâmetro e refiz uma nova consulta no cadastro o qual me retorno e exibiu no dbedit o código da primary key. Segue o código abaixo: CdsCadastro.ApplyUpdates(0); if AdicionarRegistro = true then Begin QryCadastro.Open; //Roda a consulta de cadastro passando o valor gen_id para o parametro dentro da rotina ConsultaCadastro(QryCadastroGEN_ID.AsInteger); QryCadastro.Close; End; Só tenho uma perguntinha, será que não tem risco entre o momento do ApplyUpdates e a abertura da SQLquery, alguém não entrar com outro Cadastro e a query me trazer o código de outro cadastro e não a que eu estava digitando? From: humberto sales de oliveira Date: 11/11/2009 21:23:40 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o valor gerado do generator do firebird select gen_id(N_CLIENTE, 0) from RDB$GENERATORS where rdb$generator_name = 'N_CLIENTE' substitua N_CLIENTE pela sua generator nesse exemplo vai retornar o valor atual da generator
Re: [delphi-br] Pegar o valor gerado do generator do firebird
voce pode usar uma sql: select gen_id(GENERATOR, 1) from rdb$database Ele vai te retornar o numero, e somar a quantidade (1) no generator em questao. []s 2009/11/11 infogil info...@yahoo.com.br Olá Srs Como eu faço para ter o valor no dbedit da minha primary key que é gerada de um generator do firebird Logo após um um ApplyUpdates(0) sem ter que abrir e fechar o formulário. O Problema é que eu só abro um registro por vez em um formulário e uso o valor da chave como parâmetro para localizar o registro, no momento da a adição dos dados e o uso do ApplyUpdates(0) não está vindo o valor primary key e com isso eu não vou conseguir saber o valor gerado e re abrir o registro para visualização. Sds Gilvan Costa -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Pegar o valor gerado do generator do firebird
Fellipe Henrique Pergunto: Pelo que entendi usando esse recurso, eu terei um espaço de tempo uma janela, em que outro usuário poderá entrar com outro registro e dai o valor que eu peguei não ser mais do registro que estou trabalhando? Nota: eu estou considerando uma aplicação rodando em rede e com vários acessos simultâneo. Gilvan Costa ---Original Message--- From: Fellipe Henrique Date: 11/11/2009 13:50:27 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o valor gerado do generator do firebird voce pode usar uma sql: select gen_id(GENERATOR, 1) from rdb$database Ele vai te retornar o numero, e somar a quantidade (1) no generator em questao. []s 2009/11/11 infogil info...@yahoo.com.br Olá Srs Como eu faço para ter o valor no dbedit da minha primary key que é gerada de um generator do firebird Logo após um um ApplyUpdates(0) sem ter que abrir e fechar o formulário. O Problema é que eu só abro um registro por vez em um formulário e uso o valor da chave como parâmetro para localizar o registro, no momento da a adição dos dados e o uso do ApplyUpdates(0) não está vindo o valor primary key e com isso eu não vou conseguir saber o valor gerado e re abrir o registro para visualização. Sds Gilvan Costa -- _ T.·.F.·.A.·. Fellipe Henrique - - CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar o valor gerado do generator do firebird
select gen_id(N_CLIENTE, 0) from RDB$GENERATORS where rdb$generator_name = 'N_CLIENTE' substitua N_CLIENTE pela sua generator nesse exemplo vai retornar o valor atual da generator