Delphi 2005 BDPConnection BDPDataAdapter Dataset...
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.
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.
Interdaniel
Curtidas 0