Como Ir Para O Próximo Da Tabela

[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;

[Progr'amador]

Olá Carla,

Eu num vi erro ae não!

Só uma sugestão: Porque você num usa a propria select pra verificar se existe o nome, tipo:

  qryDados.Close;

  qryDados.SQL.Clear;

  qryDados.SQL.Add('Select Nome from Dados where Nome = '+#39+edtNome1.Text+#39);

  qryDados.Open;

  if qryDados.RecordCount > 0 then Begin

    Application.MessageBox('Este nome já existe','Erro', MB_ICONERROR + MB_OK);

    Erro:= True;

  End;

Abs. Progr'amador.

[Guest Guest]

Um outro probleminha. Tenho campos dbedit ligados a um data source.

quando eu aperto o botão inserir e chega na parte de qryDados.Open, o programa emiti um erro de que o dbedit não achou o field que está indexado. porque ele dá esse erro, sendo q o field está certo?

[Progr'amador]

Observe que na sua Select você esta trazendo somente o Campo Nome, use o asteristico(*): 'Select * from Dados

Abs. Progr'amador.