Fórum Socorro Relacionamento entre tabelas no Interbase #158833
08/05/2003
0
Caros amigos vou acabar ficando doido com isso
uso o seguinte codigo para relacionar
Esse é o codigo....
Q.Sql.Add(´Select Clientes.Codigo CodCli, Clientes.Nome NomeCli, Convenio.Nome ConvNome´);
Q.Sql.Add(´from Clientes, Convenio´);
Q.Sql.Add(´Where Clientes.Codigo = Convenio.Codigo and
Clientes.Codigo = ´ + editCodigoClientes.Text);
para os edit receberem os valores fica
assim
editCodigo.text := Q.FieldByName(´CodCli´).AsString;
editNomecli.text := Q.FieldByName(´NomeCli´).AsString;
editConvCli.text := Q.FieldByName(´ConvNome´).AsString;
Até ai tudo bem... o poblemas se eu tenho um
cadastro e altero o convenio por exemplo
Cod.. Nome Convenio
001 Tesei Clube Delphi
Ele teria que ficar assim...
Cod.. Nome Convenio
001 Tesei Bingolim
o interessante que quando eu altero o registro ele alterar normalmente..
o que nao esta dando certo e quando vou dar esse select que esta acimas ele nao me retorna o valor correto...so o que estava antes...
OBs( Faco um verificacao no banco de dados para ver se o registro esta alterado e realmente foi alterado mas quando vou vizualizar com o select ai da o poblema...)
uso o seguinte codigo para relacionar
Esse é o codigo....
Q.Sql.Add(´Select Clientes.Codigo CodCli, Clientes.Nome NomeCli, Convenio.Nome ConvNome´);
Q.Sql.Add(´from Clientes, Convenio´);
Q.Sql.Add(´Where Clientes.Codigo = Convenio.Codigo and
Clientes.Codigo = ´ + editCodigoClientes.Text);
para os edit receberem os valores fica
assim
editCodigo.text := Q.FieldByName(´CodCli´).AsString;
editNomecli.text := Q.FieldByName(´NomeCli´).AsString;
editConvCli.text := Q.FieldByName(´ConvNome´).AsString;
Até ai tudo bem... o poblemas se eu tenho um
cadastro e altero o convenio por exemplo
Cod.. Nome Convenio
001 Tesei Clube Delphi
Ele teria que ficar assim...
Cod.. Nome Convenio
001 Tesei Bingolim
o interessante que quando eu altero o registro ele alterar normalmente..
o que nao esta dando certo e quando vou dar esse select que esta acimas ele nao me retorna o valor correto...so o que estava antes...
OBs( Faco um verificacao no banco de dados para ver se o registro esta alterado e realmente foi alterado mas quando vou vizualizar com o select ai da o poblema...)
Babu
Curtir tópico
+ 0
Responder
Posts
09/05/2003
Cruz
Se os dados forem atualizados quando vc fecha e abre o programa novamente então tente o seguinte:
No Transaction vc deve colocar os parametros ReadCommitted RecVersion para que ele leia os dados mais recentes.
No Transaction vc deve colocar os parametros ReadCommitted RecVersion para que ele leia os dados mais recentes.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)