(Resolvido) delphi + mysql

[AllNet]

Olá pessoal, estou usando o componente zeos access para conectar ao mysql, e na tela de cadastro uso o DBNavigator, com os botoes desativados, exceto o nbpost, para ter o botao de cadastro. O que devo fazer para quando eu clicar no botao de cadastro, primeiro ele ver se eu já fiz esse mesmo cadastro.

Ou seja, não deixar eu cadastrar duas vezes a mesma pessoa.

Grato.

[Micheus]

AllNet, dependendo de como está definida sua tabela, o fato de gravar um mesmo registro pode gerar uma exceção do tipo "Key Violation". Mas, há cituações em que isso pode não ocorrer.

Neste caso, e mesmo no primeiro, a saída é utilizar uma querie auxiliar para verificar a existência da informação na tabela, antes de você gravar as informações.

Como você utiliza o DBNavigator (e também por conta do DBGrid), a ação de gravação (via método Post) pode ocorrer sem que você o efetue explicitamente (via código). Nesta situação, você pode utilizar o evento BeforePost do dataset sendo editado e nele você faz a validação via querie auxiliar. Caso a informação já exista, então você aborta o processo de inclusão (via procedure Abort). Veja este post para ter uma idéia.

Abraços

[AllNet]

Olá Micheus, não consegui fazer por esses exemplos, então não estou mais usando mais os componentes do data controls, agora para inserir os dados eu coloquei o seguinte código em um botao:

zQuery1.Active := False;
zQuery1.SQL.Clear;
zQuery1.SQL.Add('insert into dados (nome, cidade) values ('+''''+edit1.Text+''''+','+''''+edit2.Text+''''+') ');
zQuery1.ExecSQL;

tentei usar o select from para a consulta mais não consegui.

Obrigado.

Editado Janeiro 15, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[João Paulo Taraciuk]

Boa tarde AllNet, eu faço este filtro desta maneira

function evitarduplicados: boolean;
begin
  zQuery1.Active:=False;
  zQuery1.SQL.Clear;
  zQuery1.SQL.Add('select * from dados where nome=:um and  cidade=:dois');
  zQuery1.ParamByName('um').value:=edit1.text;
  zQuery1.ParamByName('dois').Value:=edit2.text;
  zQuery1.Active:=true;
  if(zQuery1.recordcount=0)then
  Begin
  //Aqui você coloca sua procedure para inserir os dados
  end
  else
  if zQuery1.recordcount> 0 then
  begin
    Este cadastro já foi realizado
  end
end;

Aí é só você chamar esta função no botão de cadastro, se não for encontrado nenhum cadastro igual ela finaliza, senão dá a mensagem.

Valeu..

Editado Janeiro 15, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização, bem como identado o código. Utilize a identação também ;)

[AllNet]

olá João Paulo, é isso ai funcionou certinho... Muito obrigado pela ajuda, e obrigado tambem ao micheus.

[João Paulo Taraciuk]

AllNet , eu faço esta verificação somente para cpf e rg que não podem existir dois iguais

Valeu