Outra forma de Exibir dados no DATAGRID

[Edwilson Curti 0]

Prezados Colegas,

 

Estou desenvolvendo um soft de pesquisas e ele possui um Form que é resposável pela elaboração das pesquisas. Ele possui os seguintes objetos:

 

Datagrid1 - Mostra todas as pesquisas cadastradas.

Datagrid2 - Mostra as perguntas relacionadas às pesquisas.

Datagrid3 - Mostra as respostas relacionadas às perguntas.

 

O que desejo é que o operador ao selecionar no Datagrid1 a pesquisa que deseja utilizar, ele mostre no Datagrid2 as perguntas relacionadas à esta pesquisa selecionada.

Ao seleciona em Datagrid2 a pergunta, que seja exibido em Datagrid3 somente as resposta relacionadas à pergunta selecionada.

 

Entenderam?

 

No momento, todas as perguntas aparecem em Datagrid2, independente da pesquisa selecionada no grid1 e todas as respostas aparecem em Datagrid3, indepente da pergunta selecionada no grid2.

 

Tentei configurar a propriedade Recordsource de cada objeto Adodc ligado a Datagrid2 e Datagrid3, porém não funcionou.

 

Quando o operador seleciona a pesquisa no grid1, o soft lê o código da pesquisa e o armazena na variável codpesq para buscar as perguntas relacionadas àquela pesquisa. A query em Recordsource fica mais ou menos assim:

 

Adodc2 (ligado ao grid2)

 

"Select * From PERGUNTAS Where COD_PESQ= '" & codpesq &"' Order By NUM_PER"

 

Adodc3 (ligado ao grid3)

 

"Select * From RESPOSTAS Where COD_PER= '" & codper &"' Order By NUM_RESP"

 

 

Existe algum outro meio de eu fazer as consultas, coforme a seleção em cada datagrid, sem configurar o Recordsource em cada objeto Adodc?

[Edwilson Curti 0]

Glória a Jesus, consegui resolver.

Bom foi assim, toda vez que eu configurava a propriedade Recordsource do objeto adodc, ele dava a msg de erro:

 

error conversion from string '" & codpesq "'

 

Parece que a propriedade recordsource do objeto adodc que citei acima, não está preparada para receber variáveis, que não sejam as da Tabela..rsrsrs

 

Resolvi assim, usei a mesma query que citei no artico, via programação e ficou assim a linha de comando:

 

Adodc2.RecordSource = "Select * From PERGUNTAS Where COD_PESQ = '" & codpesq & "' Order By COD_PER;"

Adodc2.Refresh

 

Então é isso aí... Glórias a Jesus...