Actualmente, teniendo el codigo como sigue:
Código Delphi
[-]
form2.adoquery1.Close;
form2.adoquery1.sql.Clear;
form2.adoquery1.SQL.Add('select username,password FROM DBA_USERS');
form2.adoquery1.SQL.Add('where username = :usuario');
form2.adoquery1.SQL.Add('or password = :clave');
form2.adoquery1.Parameters.ParamByName('usuario').value.AsString := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('clave').Value.AsString := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last;
if form2.adoquery1.RecordCount <> 0
then
form1.showmodal
else
showmessage ('Usuario O PassWord Invalido');
end;
me muestra el siguiente error:
Invalid variant operation
es bueno decir que este codigo compila bien, es cuando presiono el boton que me devuelve el error.
Un Saludo,
Rolando.