ActiveDelphi

[charlo]

Olá gente, bom dia.

Alguém tem alguma sugestão sobre esse meu problema?

Eu estou usando 1 CLientDataSet, 1 Query, 1 DataSetProvider, 1 DataSource e 1 DBGrid.

Quando faço uma consulta ele exibe perfeitamente a consulta no mesmo DBGrid, mas depois não sai disso hehehehehehehehe. Gostaria de fazer um botão de atualização que quando fosse clicado me mostrasse todo o conteúdo dos meus registros no DBGrid de volta.

Agradeço a atenção e sugestão de todos.

Charlo.

[thomazs]

Você deve estar alterando o SQL... se for isso, é só desfazer, colocando novamente o

SELECT * FROM TABELA
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[charlo]

Obrigado Thomaz novamente, mas não atualiza, coloquei esse comando:

Query1.sql.clear;
Query1.sql.add(\'select * from Tabela\');
if not Query1.Prepared then
Query1.Prepare;
Query1.Open;


Charlo

[charlo]

Ahh, uma coisa que esqueci de mencionar. Eu estou utilizando o ClientDataSet para todos os comandos que eu utilizava na Query. Ou seja, está me parecendo que a consulta que eu faço fica gravado em memória e não é desfeita, por isso queria fazer um botão de atualização com comandos para poder atualizar em tempo de execução o meu DBGrid. Mas não sei fazer.

Charlo.

[Borland_Linuxer]

na query coloca assim

set @dtaIni=:Dtanfi
set @DtaFim=:F=Dtafim
set @CamoNome=:CamoNome

select * from tabela where CamoNome=@CamoNomeand (dtanfi between @DTAINI and @DTAFIM)

no botao do delphi

query1.close;
query1.Parameters.ParamByName(\'DTAINI\').Value := strToDate(edtDTAINI.Text);
query1.Parameters.ParamByName(\'DTAFIM\').Value := strToDate(edtDTAFIM.Text);
query1.Parameters.ParamByName(\'CamoNom\').Value := strToDate(edtCamoNom.Text);
query1.open;


flw ai..
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[charlo]

Agradeço amigo, mas nem funcionou, dá erro de edtDTAINI.Text nào delclarado

Charlo

[Borland_Linuxer]

[quote]Agradeço amigo, mas nem funcionou, dá erro de edtDTAINI.Text nào delclarado

Charlo [/quote]

ola supondo que vc va fazer uma pesquiisa entre datas e por nome use o codigo todo se não so use assim.

ha edtdtaini e o nome do edit onde fica a data inicial

na query

select * from tabela where CamoNome=:CamoNome

no botao pesquisar
query1.close;
query1.Parameters.ParamByName(\'CamoNom\').Value := strToDate(edtCamoNom.Text);
query1.open;


so mais uma coisa no cosigo acima eu me esquecei de declarar as variavies assim[

declare @dtaIni datetime, @dtaFim datetime, @Cliente varchar(50)

flw ai.

[Editado em 5/8/2006 por Borland_Linuxer]
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[charlo]

Resolvido gente. Segue abaixo os comandos que usei para atualizar o DBGrid usando ClientDataSet e Query.

Query1.sql.clear;
Query1.sql.add(\'select * from Tabela\');
if not Query1.Prepared then
Query1.Prepare;
Query1.Open;
ClientDataSet1.Refresh;
Query1.Close;

Abraços,

Charlo