Ayuda Acceso Login conexion Ado

[droguerman]

Tu consulta siempre devolverá true, estás comparando un campo con su mismo valor!!!
cambia:

Código SQL [-]
ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre=idnombre and contrasenia=contrasenia');

por

Código SQL [-]
ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre='+ quotedStr(idnombre) +' and contrasenia='+quotedStr(contrasenia)  );