Recorrer y comparar datos en un tzquery

[olbeup]

Hola Jose001,

Has pasado los parametros de ":usuario y :contrasenia"

La consulta que has puesto sólo te devolvera un registro el cual "while y qCuentas.Next" sobran.

El "Post" que has puesto ahí, no hara nada e incluso te puede dar algún error por que no esta en modo de edición.

Utiliza INSERT INTO en vez de "Post", he supuesto que sabes SQL.

Un saludo.

[jose001]

Empezado por olbeup

Hola Jose001,

Has pasado los parametros de ":usuario y :contrasenia"

La consulta que has puesto sólo te devolvera un registro el cual "while y qCuentas.Next" sobran.

El "Post" que has puesto ahí, no hara nada e incluso te puede dar algún error por que no esta en modo de edición.

Utiliza INSERT INTO en vez de "Post", he supuesto que sabes SQL.

Un saludo.

Al query si lo tengo en modo de insert y activado antes del ciclo. las secuencias sql las entiendo lo que no entiendo bien es como recorrer los query y utilizar un if dentro para comparar un dicho campo. Sin necesidad de utilizar una instruccion "sql.add"

[ecfisa]

Hola jose001.

Creo que no has entendido lo que te sugirió olbeup...

Comprendo que deseas avisar si el usuario existe o, modo contrario agregarlo. Si interpreté bién, sería algo parecido a esto:

Código Delphi [-]
...
 // Buscar el usuario:
  tuQuery.Close;
  tuQuery.SQL.Clear;
  tuQuery.SQL.Add('SELECT * FROM CUENTAS');
  tuQuery.SQL.Add('WHERE USUARIO = :USER');
  tuQuery.ParamByName('USER').AsString := eUsuario.Text;
  tuQuery.Open;

  if not tuQuery.IsEmpty then  
    ShowMessageFmt('El usuario %s ya existe',[eusuario.Text])  // el usuario existe, mostrar mensaje
  else                                                         // el usuario no existe, agregarlo
  begin
    tuQuery.Close;
    tuQuery.SQL.Clear;
    tuQuery.SQL.Add('INSERT INTO CUENTAS(USUARIO, CONTRASENIA)');
    tuQuery.SQL.Add('VALUES(:USER, :CONT)');
    tuQuery.ParamByName('USER').AsString := eUsuario.Text;
    tuQuery.ParamByname('CONT').AsString := eContrasenia.Text;
    tuQuery.ExecSQL;
  end;
...

Saludos