Fórum Verificar registros duplicados através de Try...Except #257815

try close; sql.clear; sql.add(´INSERT INTO ´+table+´ (MAT_ALUNO, ALUNO, RESPONSAVEL,´); sql.add(´DT_PGTO, VALOR, PARCELA, MES )´); sql.add(´select ´+cbini.text+´.MAT_ALUNO,´+cbini.text+´.ALUNO,´+cbini.text+´.RESPONSAVEL´); sql.add(´,´+cbini.text+´.DT_PGTO,´+cbini.text+´.VALOR,´+cbini.text+´.PARCELA,´+cbini.text+´.MES´); sql.add(´from ´+cbini.text+´ inner join ´+cbfim.text+´ on ´+cbini.text+´.aluno=´+cbfim.text+´.aluno´); prepare; ExecSQL; except on EmySQLDatabaseError do begin MessageDlg(´Registro Duplicado!´,MtInformation,[Mbok],0); frmprinc.database.Commit; end