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...)


Babu

Babu

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar