error while..do

[odrack]

Que tal a todos!!

Tengo un problemita con el ciclo while, lo que esta pasando es que no termina el ciclo while con este codigo:

Código Delphi [-]
 
Begin
             query2.close;
             query2.sql.clear;
             query2.sql.add('SELECT usuario as nomart FROM usuarios');
             query2.Open;
              while not query2.eof do
                begin
                 if edit1.Text=query2.Fieldvalues['nomart'] then
                   begin
                    showmessage('El usuario ya existe');
                    query2.Last;
                   end
                 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;
              query2.Next;
          end;

alguien sabe por que no lo termina?? Esto pasa cuando no encontro ninguno registro igual y comienza a agregar registros vacios (esto es por que borro el contenido de los edit) pero no logro que termine el while

[[Delphius]]

Empezado por odrack

Que tal a todos!!

Tengo un problemita con el ciclo while, lo que esta pasando es que no termina el ciclo while con este codigo:

Código Delphi [-]
Begin query2.close; query2.sql.clear; query2.sql.add('SELECT usuario as nomart FROM usuarios');
query2.Open;
while not query2.eof do begin if edit1.Text=query2.Fieldvalues['nomart'] then begin showmessage('El usuario ya existe');
query2.Last;
end 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;
query2.Next;
end;


alguien sabe por que no lo termina??

Hola odrack,
Por empezar veo un Query1.Next que está fuera del ciclo. Muevele una línea antes y dime:

Código Delphi [-]
Begin
             query2.close;
             query2.sql.clear;
             query2.sql.add('SELECT usuario as nomart FROM usuarios');
             query2.Open;
              while not query2.eof do
                begin
                 if edit1.Text=query2.Fieldvalues['nomart'] then
                   begin
                    showmessage('El usuario ya existe');
                    query2.Last;
                   end
                 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;
                query2.Next; // aqui ebería ir....
                end; // fin while...
              
end;

Saludos,

[[Caral]]

Hola
Para que hacer un while, no hace falta.

Código Delphi [-]
 
Begin
             query2.close;
             query2.sql.clear;
             query2.sql.add('SELECT usuario as nomart FROM usuarios');
             query2.Open;
              if edit1.Text=query2.Fieldvalues['nomart'] then
                   begin
                    showmessage('El usuario ya existe');
                    query2.Last;
                   end
                 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;
              query2.Next;
          end;

Saludos

[[Caral]]

Hola
Rectifico, viendo en codigo de delphius, tambien sobra el next.

Código Delphi [-]
Begin
             query2.close;
             query2.sql.clear;
             query2.sql.add('SELECT usuario as nomart FROM usuarios');
             query2.Open;
              if edit1.Text=query2.Fieldvalues['nomart'] then
                   begin
                    showmessage('El usuario ya existe');
                    query2.Last;
                   end
                 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;
              query2.Next; // esto sobra
          end;

Saludos

[odrack]

he modificado moviendo el next y agregue un last al final de insert, con eso detengo el while, pero ahora solo me funciona para el primer registro ya que no se mueve al siguiente

Código Delphi [-]
   Begin
             query2.close;
             query2.sql.clear;
             query2.sql.add('SELECT usuario as nomart FROM usuarios');
             query2.Open;
              while not query2.eof do
                begin
                 if edit1.Text=query2.Fieldvalues['nomart'] then
                   begin
                    showmessage('El usuario ya existe');
                    query2.Last;
                   end
                 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');
                     query2.Last;
                    end;
                    query2.Next;
                end;

[[Delphius]]

¿Caral estás seguro? Porque pareciera que odrack desea insertar los usuarios desde una tabla a otra....

odrack, Para que el Last al final de la parte else? A me parece que está demás....

Saludos,

[odrack]

lo que estoy haciendo es insertar a usuarios nuevo en una tabla con un query, eso si lo hace, y tengo el last al final por que sin no termina el ciclo ya que agrega uno tras otro.

[[Caral]]

Hola
Mas que seguro, hacer un recorrido a la tabla es innecesario.
1- revisar si el usuario existe.
2- crear el if, else
3- terminar.
que se inserte en otra tabla es lo de menos.
Saludos

[odrack]

Perdon caral, pero hasta donde tengo entendido para recorrer los registros de una tabla tiene que ser con un while.. do, si no como los recorre?? o estoy equivocado??