Fórum Delphi 2005 BDPConnection BDPDataAdapter Dataset... #301182

Considerando uma conexão com BDPConnection, um select com parâmetros no BDPDataAdapter, um DataSet, um DBWebDataSource, um DBWebGrid e um DBWebNavigator.

O parâmetro foi definido inicialmente com ´A¬´ para buscar todos os nomes que comecem por A numa tabela de NOMES. Os links entre os componentes e o DataSource e DataSet foram feitos e o autorefresh do DBWebDatasource setado para True.

Ao executar o projeto, tudo funciona perfeitamente, os dados aparecem no Grid e o ponteiro do DataSet muda com o Navigator.

Colocamos então um edit e um botao no form, para com ele mudarmos o parâmetro da query. No click desse botao colocamos o seguinte código:

BdpDataAdapter1.Active := False;
BdpDataAdapter1.SelectCommand.Close;
BdpDataAdapter1.SelectCommand.Parameters[´pNome´].Value := tbConsulta.Text+´¬´;
BdpDataAdapter1.Active := True;

Executando novamente e preenchendo uma nova busca através do edit (´B¬´, por exemplo). O novo parâmetro é alterado e a query executada. O resultado é exibido normalmente no grid.

No entanto, ao clicar nos botões de navegação do DBWebNavigator (First, Previous, Next, Last) a query é refeita com o parâmetro definido com o valor inicial (´A¬´)

O programa foi feito no Delphi 2005 acessando uma tabela do SQL-Server.

Não consegui resolver o problema.

Se alguém tiver uma dica, agradeço de montão.