Fazer um SELECT antes de Inserir no Banco MySQL

[rafaeloliveira83 0]

Estou tentando fazer um form no Delphi que seja capaz de identificar 2 campos chaves primárias compostas e no botão salvar antes de salvar ele verificar se os dois campos tem registros iguais e se nao tiver ele adiciona se tiver ele mostra uma mensagem.

 

Tenho uma tabela com os campos:

 

ID, Cidade, UF, Data

 

Assim pode adicionar , pois apesar do Campo Cidade for igual o campo Uf não é

Cidade - UF

 

Rio Claro - RJ

Rio Claro - SP

Assim já nao daria , pois os dois campos com chaves primárias são iguais.

É isso que estou tentando fazer abaixo ele verificar se os dois campos são iguais nos seus registros

 

Cidade - UF

 

Rio Claro - SP

Rio Claro - SP

 

 

ADOQuery1.Close;
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('select * from cidades');
ADOQuery1.Sql.Add('where cidade like :cidade and uf like :uf' );
ClientDataSet1.Params[0].AsString := dbeEdit1.text;
ClientDataSet1.Params[1].AsString := dbeEdit2.text;
ADOQuery1.Open;

If not ADOQuery1.IsEmpty Then
begin
ShowMessage('Repetido, AVISO!');
Exit;
end

Else

ClientDataSet1.ApplyUpdates(0);

Esta dando erro nem sei mais o que mudar

[fernando.fxsoft 0]

Raffael, você não especificou o erro que está acontecendo, mas acredito que os parâmetros devem ser passados para o AdoQuery1 e não para ClientDataSet1. Tente alterar isto.

[rafaeloliveira83 0]

Aparece se eu repetir os dois campos iguais ele nao busca antes de inserir ele ja tenta adicionar e aparece.

 

Duplicate entry ' - ' for key 'PRIMARY'