Fórum ligar uma tabela em outra - Interbase #259250
20/11/2004
0
Desde já agradeço
Obrigado
Edusjc
Curtir tópico
+ 0Posts
21/11/2004
Oscar Candido
para selecionar os dados do registro de onde vc quer copiar vc pode usar a seguinte Query:
Select * from Tabela1 where Codigo = :Cod
para passar os dados de uma tabela pra outra, vc pode fazer da seguinte forma, depois de executar a Query anterior:
Tabela2Codigo.Value := Tabela1Codigo.value; Tabela2Nome.Value := Tabela1Nome.Value;//E assim por diante
Espero ter ajudado
Um Abraço
Gostei + 0
21/11/2004
Gandalf.nho
Gostei + 0
21/11/2004
Edusjc
Gostei + 0
21/11/2004
Gandalf.nho
Gostei + 0
21/11/2004
Edusjc
Obrigado
Gostei + 0
21/11/2004
Gandalf.nho
Crie o generator:
CREATE GENERATOR nome_generator;
Agora a trigger:
CREATE TRIGGER nome_trigger FOR nome_tabela
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.nome_campo_chave IS NULL) THEN
NEW.nome_campo_chave = GEN_ID(nome_generator, 1);
END
Para saber mais olhe a documentação do IB/FB, além de uma pesquisada no fórum.
Gostei + 0
21/11/2004
Michaell
Colega,
Vou te dar uma dica:
Supondo que você tenha 2 tabelas, PEDIDO(CODIGO INTEGER...) e PEDIDO_ITEM(CODIGO INTEGER, ITEM_CODIGO INTEGER...)
Crie um GENERATOR, por exemplo, GEN_PEDIDO (CREATE GENERATOR GEN_PEDIDO).
No Interbase existe uma função chamada GEN_ID(), que incrementa o valor do GENERATOR. Ela necessita de dois parâmetros: Nome do Generator, valor do incremento. Agora é só você utilizar:
´SELECT GEN_ID(GEN_PEDIDO, 1) FROM RDB$DATABASE´
E você obterá uma nova sequência para sua tabela de Pedidos, sendo que você poderá guardar esse código, numa variável no Delphi para posterior gravação na tabela PEDIDO_ITEM.
[]´s
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)