Ahora da
List Index Out Of Bounds (10)
despues probe cambiar un poco tu codigo y recibo el mismo error
adoquery3.SQL.Add('select colaboradores.id, colaboradores.usuario, colaboradores.password, colaboradores.nombre,colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web,colaboradores.rol, colaboradores.fecha ');
adoquery3.SQL.Add('from colaboradores, roles ');
adoquery3.SQL.Add('where colaboradores.rol=roles.id and colaboradores.id= :A');
adoquery3.Parameters.ParamByName('A').Value:= adoquery2.Fields[0].AsInteger;
|