Registro desaparece na StringGrid

Delphi

18/12/2012

Bom dia.

Tenho uma StringGrid com as colunas: Horário | Cod.Cliente | Cliente | Tipo

Tenho 3 registros nela, quando cadastro uma nova consulta dou um Post e faço esse select pra atualizar os dados da StringGrid:

limpaGrade;
   qryAgenda.Close;
   qryAgenda.SQL.Clear;
   qryAgenda.SQL.Add('SELECT * FROM cadagenda WHERE dtagendamento = ' +
   QuotedStr(FormatDateTime('yyyy-mm-dd hh:mm:ss', DateOf(MonthCalendar1.Date))));
   qryAgenda.Open;
   criaGrade;


Só que que quando eu dou o post e atualizo, o nome dos outros clientes desaparecem(somente o nome, os outros dados ficam na StringGrid ainda), fica somente o nome que foi cadastrado por ultimo.

Alguém tem ideia do que pode ser?

Abraços.

Vander Carlos

Vander Carlos

Curtidas 0

Respostas

Deivison Melo

Deivison Melo

18/12/2012

Por favor, posta todo o código e explica exatamente o que vc quer fazer com ele...

pelo que entendi vc está pegando o resultset de uma query e querendo colocar em um stringgrid...

Qual o erro que apresenta...
GOSTEI 0
Vander Carlos

Vander Carlos

18/12/2012

Não ta dando nenhum erro..

Por exemplo, tenho a StringGrid assim:


Horário | Cod.Cli | Cliente | Tipo

07:00 1 Maria Visita
07:30 2 José Visita
08:00 3 João Visita
...

Quando eu insiro um novo registro fica dessa forma:


Horário | Cod.Cli | Cliente | Tipo

07:00 1 Visita
07:30 2 Visita
08:00 3 Visita
08:30 4 Ana Visita


Somente o nome some, os outros dados permanecem, se eu abrir e fechar o form fica com todos os registros.

O mesmo código que uso no OnShow do Form eu uso no botão para cadastrar uma nova consulta e atualizar os dados:

limpaGrade;
   qryAgenda.Close;
   qryAgenda.SQL.Clear;
   qryAgenda.SQL.Add('SELECT * FROM cadagenda WHERE dtagendamento = ' +
   QuotedStr(FormatDateTime('yyyy-mm-dd hh:mm:ss', DateOf(MonthCalendar1.Date))));
   qryAgenda.Open;
   criaGrade;
   ajustaCamposDaGrade;
GOSTEI 0
POSTAR