no value given for one or more required parameters

[look]

hola amigos tengo la siguiente consulta:

Código Delphi [-]
    with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add('SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS');
      SQL.Add('WHERE CLAVE = :CLAVE AND USUARIO = :USUARIO');
      Parameters.ParamByName('CLAVE').Value := edtClave.Text;
      Parameters.ParamByName('USUARIO').Value := EdtUsuario.Text;
      Active := True;
     end;

pero me lanza el siguiente error:

 no value given for one or more required parameters

que puedo hacer?

[[Caral]]

Hola
Yo no usaria los nombres de los campos en los parametros.

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add(' SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS ');
      SQL.Add(' WHERE CLAVE = :CLAV AND USUARIO = :USUA ');
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

O asi>

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add(' SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS ');
      SQL.Add(' WHERE CLAVE = :CLAV OR USUARIO = :USUA ');
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

A ver que pasa.
Saludos

[look]

Empezado por Caral

Hola
Yo no usaria los nombres de los campos en los parametros.

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add('SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS');
      SQL.Add('WHERE CLAVE = :CLAV AND USUARIO = :USUA');
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

O asi>

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add('SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS');
      SQL.Add('WHERE CLAVE = :CLAV OR USUARIO = :USUA');
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

A ver que pasa.
Saludos

hola amigo, pues no me ha funcionado...

[[Caral]]

Hola
Mira esto:
Antes de copiar y pegar solo ponle la linea del mensaje y revisa el dato, luego copia y pega el codigo completo y revisalo otra vez.

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add(' SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS ');
      SQL.Add(' WHERE CLAVE = :CLAV AND USUARIO = :USUA ');
      Showmessage(qryConsulta.sql.text); // aqui 
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

Saludos

[MartinS]

Muy básica mi respuesta, pero verificaste que los nombres de los campos estén bien escritos?.. Saludos

[look]

Empezado por Caral

Hola
Mira esto:
Antes de copiar y pegar solo ponle la linea del mensaje y revisa el dato, luego copia y pega el codigo completo y revisalo otra vez.

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add(' SELECT NUM_USUAR,NOMBRE,CLAVE,USUARIO FROM USUARIOS ');
      SQL.Add(' WHERE CLAVE = :CLAV AND USUARIO = :USUA ');
      Showmessage(qryConsulta.sql.text); // aqui 
      Parameters.ParamByName('CLAV').Value := edtClave.Text;
      Parameters.ParamByName('USUA').Value := EdtUsuario.Text;
      Active := True;
     end;

Saludos

amigo ya le he dado vueltas y vueltas pero no me funciona

[[Caral]]

Hola
Amigo, estas seguro de que no tienes campos persistentes en el query ?.
Dale doble click al query y revisa los campos que tienes en esa pantallita.
Saludos

[[Caral]]

Hola
Aparte de todo, no me gusta ni el add y el parambyname

Código Delphi [-]
with qryConsulta  do
    begin
      Active := False;
      SQL.text:= ' SELECT NUM_USUAR, NOMBRE, CLAVE, USUARIO FROM USUARIOS '+
                 ' WHERE CLAVE = :C AND USUARIO = :U ';
      Parameters[0].Value := edtClave.Text;
      Parameters[1].Value := EdtUsuario.Text;
      Active := True;
     end;

Saludos