error while..do

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

[[Caral]]

Hola
Perdoname pero si estas equivocado en este caso.
Un codigo mio en uso, revisalo.

Código Delphi [-]
 OrdenCompra.Active := False;
   OrdenCompra.SQL.Text := 'Select OrdenCompra From OrdenProd WHERE OrdenCompra ='+QuotedStr(Edit7.Text);
   OrdenCompra.Active := True;
   If Edit7.Text = '' then
   Edit7.Text:= Edit2.Text
   else
   If Edit7.Text = OrdenCompra.Fields[0].Value then
   MessageDlg('La orden de Compra ya Existe',mtError,[mbOK],0)
   else
   If Edit3.Text = '' then MessageDlg('Debe especificar el código del cliente',mtError,[mbOK],0)
 else

Si encuentras donde la recorro me lo dices.
Saludos

[odrack]

Tienes razon, pero no entiendo en que momento recorre los datos, he puesto tu codigo en practiva pero solo busca en el primer registro,
Saludos

[[Delphius]]

Parte de lo dicho por Caral me ha llevado a darme cuenta de que hay un error conceptual en el diseño de odrack.

Al comienzo estaba pensando que odrack lo que deseaba es mover los registros de una tabla a otra... pero tal vez lo que desea hacer es insertar el registro en caso de que no existiese...

Si lo que deseas es insertar un registro que es inexistente lo que comenta Caral es cierto.

Por otro lado, si lo que deseas es mover registros de una tabla a otra... deberás explicar mejor tu situación porque no está claro... ¿mueves de usuarios a usuarios?

Deberás explicar mejor tu situación.

Saludos,