Socorro Relacionamento entre tabelas no Interbase
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
Curtidas 0
Respostas
Cruz
08/05/2003
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.
GOSTEI 0