Pessoal, gostaria de saber como faço para ir para o próximo registro da tabela de forma a fazer uma pesquisa que verifica se já existe aquele nome incluído.
Tentei fazer como em negrito, mas ele não move na tabela, move?
E como faço para ir para o primeiro registro(tb em negrito)?
qryDados.First;
while not (qryDados.Eof) do
Begin
qryDados.Active := False;
qryDados.SQL.Clear;
qryDados.SQL.Add('Select Nome from Dados');
qryDados.Active := True;
Nome:= qryDados.FieldByName('Nome').asString;
if (Nome = edtNome1.Text) then
Begin
Application.MessageBox('Este nome já existe','Erro', MB_ICONERROR + MB_OK);
Pergunta
Guest - Carla -
Pessoal, gostaria de saber como faço para ir para o próximo registro da tabela de forma a fazer uma pesquisa que verifica se já existe aquele nome incluído.
Tentei fazer como em negrito, mas ele não move na tabela, move?
E como faço para ir para o primeiro registro(tb em negrito)?
qryDados.First;
while not (qryDados.Eof) do
Begin
qryDados.Active := False;
qryDados.SQL.Clear;
qryDados.SQL.Add('Select Nome from Dados');
qryDados.Active := True;
Nome:= qryDados.FieldByName('Nome').asString;
if (Nome = edtNome1.Text) then
Begin
Application.MessageBox('Este nome já existe','Erro', MB_ICONERROR + MB_OK);
Erro:= True;
End;
qryDados.Next;
End;
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.