2 Dbgrids ligados em duas tabelas diferentes

[danielrgoes]

Bom dia pessoal

Vamos ver se consigo explicar a minha situação pra vocês

eu tenho uma aplicação em delphi 2007 e Banco de dados progress 10.1c

no banco tem 2 tabela st-bomba,st-desc_bomba elas possuem uma relaçao de 1-n pelo cod_bomba

ai no meu form tem 2 DBgrids um ligado no st-bomba e outro no st-desc_bomba

quando eu seleciono um item do dbgrid(st-bomba) tem que efetuar um select e mostrar o resultado no dbgrid(st-desc_bomba)

eu consigui falze da seguinte forma coloquei um DataSourse no form ligado lá no modulo.dataset_bomba

ai no evento Ondatachange coloquei o codigo

if ( modulo.ds_p_bomba.Enabled = False) then

modulo.ds_p_bomba.Enabled := True;

if not (modulo.data_p_bomba.State In [dsInsert]) Then

begin

if ( modulo.data_p_bomba.RecordCount > 0 ) then

begin

//filtra para os pt de operação do teste em foco

modulo.data_p_desc_bomba.Close;

modulo.data_p_desc_bomba.CommandText := 'select * from PUB."st-desc_bomba" where cod_bomba = '+ IntToStr(modulo.data_p_bombaCOD_BOMBA.Value);

modulo.data_p_desc_bomba.Open;

end;

end;

muito bem fuincionou

porem a aplicação ficou lerda quando eu seleciono o item do Dbgrid(st-bomba) da uma pausa pra mostra os valores

não é a conexao poiso qualquer outro select é rapido e a rede aki é /Giga

alguém tem alguma ideia pra otimizar esse resultado

muito obrigado

[Jhonas]

porem a aplicação ficou lerda quando eu seleciono o item do Dbgrid(st-bomba) da uma pausa pra mostra os valores

não é a conexao pois qualquer outro select é rapido e a rede aki é /Giga

alguém tem alguma ideia pra otimizar esse resultado

Sugiro voce testar somente a select sozinha sem nenhum outro código

Outras informações sobre o assunto

http://books.google.com.br/books?id=ZqGbdC...20n&f=false

abraço