Problemas com o BDGrid

Delphi

05/11/2004

Olá, estou tendo um problema estranho com o DBGrid...

Tipo, linkei ele num IBDataSet,
Quando, altero um linha nele, e passo pra linha seguinte, o valor q eu alterei, vai pra todos os campos do DBGRid... estranho d+...

O unico metodo q encontrei de solucionar isso, foi.. apos o Post do IBDataSet, eu Fecho o IBDataSet e reabro o mesmo... assim volta tudo ao noirmal..


Tipo, somente mostra os valoresem todos os campos, [b:3bd6dfc21b]sem altera-los no banco[/b:3bd6dfc21b].

Como posso resolver isso...


DEsde ja agradeco...


Titanius

Titanius

Curtidas 0

Respostas

Titanius

Titanius

05/11/2004

upp... :8


GOSTEI 0
Gandalf.nho

Gandalf.nho

05/11/2004

Qual a estrutura da query do IBDataSet?


GOSTEI 0
Titanius

Titanius

05/11/2004

quais os dados?
beleza, segue ele aih:

DeleteSQL:
   delete from NOTAS
   where
       RECNO = :OLD_RECNO

InsertSQL:

insert into NOTAS
  (RECNO, COD_BOLETIM, BIMESTRE, COD_DISCIPLINA, DESC_DISCIPLINA, PROVA1, 
   PROVA2, PROVA3, PROVA4, MEDIA_PROVA, AV_FECHADA, PARTICIPACAO, NOTA1, 
   NOTA2, FALTAS, MEDIA_FINAL)
values
  (:RECNO, :COD_BOLETIM, :BIMESTRE, :COD_DISCIPLINA, :DESC_DISCIPLINA, 
   :PROVA1, :PROVA2, :PROVA3, :PROVA4, :MEDIA_PROVA, :AV_FECHADA, :PARTICIPACAO, 
   :NOTA1, :NOTA2, :FALTAS, :MEDIA_FINAL)

ModifySQL:

update NOTAS
set
  RECNO = :RECNO,
  COD_BOLETIM = :COD_BOLETIM,
  BIMESTRE = :BIMESTRE,
  COD_DISCIPLINA = :COD_DISCIPLINA,
  DESC_DISCIPLINA = :DESC_DISCIPLINA,
  PROVA1 = :PROVA1,
  PROVA2 = :PROVA2,
  PROVA3 = :PROVA3,
  PROVA4 = :PROVA4,
  MEDIA_PROVA = :MEDIA_PROVA,
  AV_FECHADA = :AV_FECHADA,
  PARTICIPACAO = :PARTICIPACAO,
  NOTA1 = :NOTA1,
  NOTA2 = :NOTA2,
  FALTAS = :FALTAS,
  MEDIA_FINAL = :MEDIA_FINAL
where
  RECNO = :OLD_RECNO


Embaixo muda de acordo com o Item do ComboBox selecionado:
  SelectSQL.Clear;
  SelectSQL.Add(´select * from NOTAS´);
  SelectSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´);
  SelectSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);

  RefreshSQL.Clear;
  RefreshSQL.Add(´select * from NOTAS´);
  RefreshSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´);
  RefreshSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);


eh isso?!


GOSTEI 0
Gandalf.nho

Gandalf.nho

05/11/2004

O RefreshSQL não tem código?


GOSTEI 0
Titanius

Titanius

05/11/2004

tem sim, olha ele aih?

  RefreshSQL.Clear; 
  RefreshSQL.Add(´select * from NOTAS´); 
  RefreshSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´); 
  RefreshSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);



GOSTEI 0
Gandalf.nho

Gandalf.nho

05/11/2004

Tente mudar o RefreshSQL para na cláusula WHERE só usar o campo chave primária, pode ser que funcione.


GOSTEI 0
Titanius

Titanius

05/11/2004

Funcionou!!!!!!!! :lol: :lol: :lol: :lol:

Beleza, brigadao mesmo!!!!


GOSTEI 0
Gandalf.nho

Gandalf.nho

05/11/2004

Funcionou!!!!!!!! :lol: :lol: :lol: :lol: Beleza, brigadao mesmo!!!!


De nada! :D


GOSTEI 0
POSTAR