n�o repetir valores em dbgrid

Question

bom di amigos!Estou com o seguinte problema!   Tenho uma dbgrid que est� sendo preenchida por valore que est�o em uma DBLookCombobox, onde carrego as disciplinas! No entanto n�o posso deixar gravar a ...

Rjun · Answer

Fiz umas mudan�as no seu c�digo. Que banco de dados voc� est� usando? Qual a tecnologia de acesso?

begin
  QHistorico.SQL.Clear;

  {
    Esse trecho poderia estar dentro do seu componente e n�o em
    linha de c�digo
  }
  QHistorico.SQL.Add(�SELECT * FROM San_Tbl_Historico �);
  QHistorico.SQL.Add(�WHERE Id_Aluno = :IdAluno AND Disciplina = :Disciplina�);

  { Utilizar par�metro � uma op��o inteligente }
  QHistorico.ParamByName(�IdAluno�).Value := Edit1.Text;
  QHistorico.ParamByName(�Disciplina�).Value := DBLDisciplina.Text;

  QHistorico.Open;
  try
    if (QHistorico.RecordCount = 0) then
    begin
      QHistorico[�id_aluno�] := QAlunomatricula.Text;
      QHistorico[�disciplina�]:= DBLDisciplina.Text;
      QHistorico[�curso�] := DBEdit4.text;
      QHistorico[�1bim�] := 0;
      QHistorico[�2bim�] := 0;
      QHistorico[�3bim�] := 0;
      QHistorico[�4bim�] := 0;
      QHistorico[�media_final�] := 0;
      QHistorico[�falta1�] := 0;
      QHistorico[�falta2�] := 0;
      QHistorico[�falta3�] := 0;
      QHistorico[�falta4�] := 0;
      QHistorico[�falta_final�] := 0;
      QHistorico[�ch�] := 0;
    end;
  finally
    { Feche a query depois de sua utiliza��o }
    { N�o faz sentido deix�-la aberta }
    QHistorico.Close;
  end;
end;