hola tengo el siguiente codigo.
Código Delphi
[-]
procedure TForm1.BaceptarClick(Sender: TObject);
var wusuario,wcontrasena: string;
begin
if trim(txtusuario.Text)='' then
begin
Application.MessageBox('Nombre de Usuario','Error',MB_ICONSTOP);
txtusuario.SetFocus;
Exit;
end;
if trim(txtcontra.Text)='' then
begin
Application.MessageBox('contraseña para el usuario','Error',mb_iconstop);
txtcontra.SetFocus;
exit;
end;
wusuario:=trim(txtusuario.Text);
wcontrasena:=trim(txtcontra.Text);
with fmodul.Query_val_usuario do
begin
SQL.Add ('select nombre,contra from usuario');
SQL.Add ('WHERE nombre=:us');
Parameters.ParamByName('us').Value := wusuario;
ExecSQL;
end;
end;
sin embargo a ejecutar la consulta me uestra el siguiente error:
Código Delphi
[-]project fallo.exe raised exception class EDatabaseError With Message 'Query_val_usuario: Parameter 'us'
not Found'. Process Stoped. Use Step or run to continue
alguien tiene una idea del por que me dice que el parametro no es encontrado?
muchas gracias