Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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;Else
ClientDataSet1.ApplyUpdates(0);
Esta dando erro nem sei mais o que mudar
Carregando comentários...