Query con ADO.

[old_martinez]

No se entiende bien lo que pedis... mas o menos esto hace la consulta para retornar el nombre de tu usuario si coinciden su id y su contraseña.
Luego se guarda el valor resultante en la variable nombreusuario.

Código Delphi [-]

adoquery.sql.text := 
  ' select nombre ' + 
  ' from usuarios ' +
  ' where '+
  '    idusuario=' + QuotedStr(usuario) + ' and ' +
  '    pass=' + QuotedStr(contrasenia);

adoquery.Open;

If ( adoquery.RecordCount > 0 ) then
  nombreusuario:= adoquery.FieldByName('nombre').asstring;