error while..do

[[Caral]]

Hola
Como te lo voy a decir a ti amigo, yo se que tu si sabes la diferencia.
Lo que pretendo es que odrack trate de analizar el asunto, si no puede no hay problema, le explicaremos con gusto, pero siempre es bueno que analice un poco, asi aprendera mas y mejor.
Saludos

[odrack]

Caral tiene razon, lo que quiero hacer es una busqueda en la base de datos y verificar que ese usuario no este agregado, si no esta lo agrego solo que no he podido hacerlo con el while ni con el codigo de caral, he analizado tu codigo caral y creo que hace el recorrido o busca el registro con

Código Delphi [-]
If Edit7.Text = OrdenCompra.Fields[0].Value then

, o estoy mal??,
Algo mas CARAL, asi aprendo mas y les doy las gracias por su ayuda!!

Saludos!!, pero sigo sin saber que esta pasando con mi codigo , por que no termina el ciclo.

[[Delphius]]

Hola odrack,
Analicemos lo que tu pides:

1. Necesitas determinar si un usuario existe en la base de datos
2. En caso de existir no se debe hacer nada
3. Sino existe entonces hay que agregarlo

¿Qué se necesita para conseguir esto?
Para saber si existe el usuario necesitamos hacer una consulta a la base de datos. Esta consulta debe ser restrictiva. Tu error es muy conceptual: ¡No se necesita recorrer toda la tabla para saber si existe!

La verdadera consulta SQL que debes emplear debe ser así:

Código SQL [-]
select id_usuario 
from usuarios
where usuario.Nombre = :pNombre

pNombre es un parámetro y se los distingue por esos dos puntos que lo anteceden. Recomiendo el uso de éstos.
Ahora bien, en la consulta pedimos que nos busque al usuario por un nombre. Entonces antes de lanzar dicha consulta debemos hacer algo como esto:

Código Delphi [-]
ADOQuery1.Parameters.ParamByName('pNombre').Value := Edit1.Text;
ADOQuery1.Parameters.ParamByName('pNombre').DataType := ftString;

Suponiendo que son Componentes ADO. Hice el supuesto de que en Edit1 escribimos el nombre del usuario que deseamos buscar.

Una vez lanzada la consulta tenemos muchas posibilidades de saber si existe este usuario... no se requiere de ningún bucle. ¿Porqué? Porque supuestamente estamos recibiendo al menos un registo (Esto dependerá de tus circunstancias, pero en fin para ejemplo basta).

Podríamos decir que:

Código Delphi [-]
Existe := ADOQuery1.RecordCount >= 1;

¿Que significa esto? Que si la consulta ha devuelto al menos un registro es porque existe. ¿Recorrí los registros afectados para saber si existe? No... y no es necesario... basta con saber si la consulta regresa registros.

Y de aqui en más la actividad es muy simple... basta un simple condicional para saber que acción tomar:

Código Delphi [-]
if Existe
  then ShowMessage('Este usuario ya existe');
  else begin
           // Aqui viene todo el alta
        end;

Creo que con esto se explica mejor la situación y su solución.
Recomiendo una mejor lectura sobre consultas SQL. Tu problema es que haces un select sin restricciones, y asi te ves obligado a examinar los registros... si podemos averiguar a traves de SQL sobre algo en particular vale la pena hacerlo.

Saludos,

[odrack]

Que tal!! les doy las gracias a los dos por haberme hecho entender que no necesitaba el ciclo while..do, simplemente habia que igualar los campos y comparar, he comprendido el problema y lo he solucionado gracias a ustedes!!, asi es como quedo el codigo:

Código Delphi [-]
Begin
             query3.close;
             query3.sql.clear;
             query3.sql.add('SELECT * FROM usuarios where usuario='+quotedstr(edit1.Text));
             query3.ExecSQL;
             query3.Open;
               if edit1.text=dbedit2.text then
                  showmessage('El usuario ya existe')
                   else
                    begin
                     query1.Close;
                     query1.SQL.Clear;
                     query1.SQL.Add('insert into usuarios (usuario, password)');
                     query1.SQL.Add('values('+quotedstr(edit1.Text)+','+quotedstr(edit2.Text)+')');
                     query1.ExecSQL;
                     query3.close;
                     query3.Open;
                     edit1.Text:='';
                     edit2.Text:='';
                     showmessage('Se ha agregado con exito');
                    end;
          end;

Con esto funciona de maravilla, lo unico que tube que hacer es igualar los campos a un dbedit.text que ya tenia anteriormente para una consulta, obviamente primero seleccione los datos e hice que se movieran en el dbedit asi comparo los datos entre EDIT1 y DBEDIT si son iguales que me muestre que ya esta el usuario de lo contrario que lo agrege.

Gracias nuevamente!!

[[Caral]]

Hola
Me alegro que lo resolvieras, y mas me alegro de que lo hicieras solo, así es como se aprende mas, lo único que necesitabas era una pequeña guía.
La explicación que te dio el Maestro Delphius fue impresionante, típica de el.
Por suerte hay Maestros como el en el club para ayudarnos a los Novatos.
Saludos