Atualizar Grid através do componente DateTimePicker
Olá Caros Amigos,
Gostaria de saber se alguém teria como me mandar alguma rotina que faça uma atualização automática ao clicar em um dia qualquer no DateTimePicker, ou seja, ao clicar em um dia qualquer, exibir somente os dados do dia selecionado no DateTimePicker no DBgrid.
Grato,
Gostaria de saber se alguém teria como me mandar alguma rotina que faça uma atualização automática ao clicar em um dia qualquer no DateTimePicker, ou seja, ao clicar em um dia qualquer, exibir somente os dados do dia selecionado no DateTimePicker no DBgrid.
Grato,
Ethewaldo
Curtidas 0
Respostas
Marcelo.c
13/05/2003
Os dados do DBGrid são carregados de uma Table ou Query ?
GOSTEI 0
Marcelo.c
13/05/2003
Exemplo para Table:
Cloque no evento Onclick do Picker
ADOTable3.Close;
ADOTable3.Filtered:=True;
ADOTable3.Filter:=´[Data de Início]=´+DatetoStr(DateTimePicker1.DateTime);
ADOTable3.Open;
Cloque no evento Onclick do Picker
ADOTable3.Close;
ADOTable3.Filtered:=True;
ADOTable3.Filter:=´[Data de Início]=´+DatetoStr(DateTimePicker1.DateTime);
ADOTable3.Open;
GOSTEI 0
Marcelo.c
13/05/2003
Exemplo para Query:
Também no evento Onclick:
SQL.Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where Data = :data´);
SQL.ParambyName(´data´).AsDateTime:=DateTimePicker1.DateTime;
SQL.Open;
Se você utiliza ADO, substitua AsDateTime por Value.
Também no evento Onclick:
SQL.Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where Data = :data´);
SQL.ParambyName(´data´).AsDateTime:=DateTimePicker1.DateTime;
SQL.Open;
Se você utiliza ADO, substitua AsDateTime por Value.
GOSTEI 0
Ethewaldo
13/05/2003
Os dados são carregados de uma tabela.
GOSTEI 0
Ethewaldo
13/05/2003
Mas eu estou utilizando o delphi3, não utilizo ADO, gostaria de saber se tem como fazer a utilização do DateTimePicker sem ADO e se só o código que me enviou faz a atualização sem ter que mexer em nada no dbgrid.
Obs.: Gostaria de saber se tem como te enviar por e-mail o código fonte para que vc coloque para rodar para mim.
Grato,
Ethewaldo Ferreira
ethewaldo@ig.com.br
Obs.: Gostaria de saber se tem como te enviar por e-mail o código fonte para que vc coloque para rodar para mim.
Grato,
Ethewaldo Ferreira
ethewaldo@ig.com.br
GOSTEI 0
Marcelo.c
13/05/2003
No Delphi 3 provavelmente você utiliza BDE.
É a mesma coisa, é só colocar o nome da tabela no lugar de ADOTabel3.
É a mesma coisa, é só colocar o nome da tabela no lugar de ADOTabel3.
GOSTEI 0
Ethewaldo
13/05/2003
Marcelo,
Caso te envie o código fonte, vc teria como coloca-lo para rodar para mim?
Caso te envie o código fonte, vc teria como coloca-lo para rodar para mim?
GOSTEI 0