DVMarinho

estou usando esta função na classe AcessoDisciplina para verificar se a disciplina já existe no BD function tAcessoDisciplina.existeDisciplina( disciplina: tDisciplina): boolean; begin try queryDisc.Close; queryDisc.SQL.Clear(); queryDisc.SQL.Add('select codigo, nome'); queryDisc.SQL.Add('from disciplina'); queryDisc.SQL.Add('where nome = '+ #39 + disciplina.nome + #39); queryDisc.Open; If queryDisc.IsEmpty Then result:= false Else result:= true; except raise; end; end; mas quando eu faso a validação no controladorDisciplina e rodo o programa qualquer disciplina q eu tento adicionar abri a execeção como se ela já existise procedure tControladorDisciplina.insert(disciplina: tDisciplina); begin try if disciplina.nome = '' then raise eErroException.create('Informar o Nome.'); if self.existeDisciplina(disciplina)then raise eErroException.create('Disciplina já Existe'); self.acessoDisciplina.insert(disciplina); except raise; end; end; creio q falta mas alguma coisa na fução da classe Acesso, por favor alguém pode me informar obrigado

Obrigado Jhonas!! era isso mesmo q eu tava precisando

por favor me ajudem preciso implementar a classe lista: type TlistaDisciplina = class(TList) o meu projeto e em camadas preciso dessa classe para carregar os valores da query obs: a classe disciplina possui como atributo: codigo e nome

tentei acresentar like no meu codigo mas mesmo assim não pegou da erro de sql. daria pra você colocar um codigo mas simples, meu programa e apenas para armazenar nome das diciplinas no acess, excluir, inserir e consulta. consegui fazer a consulta mas apenas com o nome completo obrigado pela atenção

e isso mesmo q eu qro, no meu botão de consulta e so apenas aqle codigo e na minha query e esse: procedure tDataModule8.select(disciplina:tDisciplina); begin try Query1.Close; Query1.SQL.Clear(); Query1.SQL.Add('select codigo, nome'); Query1.SQL.Add('from disciplina'); Query1.SQL.Add('where 0 = 0'); If disciplina.nome <> '' Then Query1.SQL.Add('and nome = '+ #39 + disciplina.nome + #39); Query1.SQL.Add('order by nome'); Query1.Open; except raise; end; end;

eu qria saber como faço para fazer uma consulta parcial usando query, eu consegui fazer apenas colocando o nome todo disciplinaAlterar.nome := EdNome.Text; DataModule8.select(disciplinaAlterar); carregarListView;