conversion error from string '" & codpesq & "&#3

[Edwilson Curti 0]

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"

 

Quando executo, ele me apresenta a seguinte mensagem de erro:

 

conversion error from string '" & codpesq & "'

 

A variável codpesq esta definida como Integer e é Pública.

COD_PESQ é uma variável da tabela PERGUNTAS, e está definida como Integer. Meu banco de dados é o Firebird.

 

O erro parece que é de conversão, mas o que está errado, se o valor que é armazenado em codpesq sempre é numérico?

 

O que devo fazer. Já estou ficando biruta por causa disto.

Me ajudem por favor.

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